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Preface 


In  June,  19^2,  by  arrangement  between  the  University  of  Illinois 
and  the  ALCOR  group  in  Europe,  Dr.  Manfred  Paul,  Johannes  Gutenberg 
Universitat,  Mainz,  and  Dr.  Rudiger  Wiehle,  Munchen  Technische  Hochschule, 
Munich,  began  the  design  of  the  ALC0R-ILLIN0IS-7O9O  ALGOL-60  Translator, 
the  use  of  which  is  described  in  this  Manual.   They  were  joined  in 
July,  I962,  by  David  Gries  and  the  writer  and  later  by  Michael  Rossin, 
Theresa  Wang  and  Rudolf  Bayer,  all  graduate  students  at  the  University  of 
Illinois . 

This  manual  is  an  effort  to  explain  the  differences  which  exist 
between  publication  ALGOL-60  as  it  is  defined  by  the  Revised  Report  on  the 
Algorithmic  Language  ALGOL-60  (as  published  in  the  January  I963  issue  of 
Communications  of  the  Association  for  Computing  Machinery)  and  as  it 
actually  has  been  implemented  by  the  group  named  above,   Relatively  few 
features  of  ALGOL-60  have  not  been  implemented,  so  this  manual  consists 
mostly  of  an  explanation  of  the  "hardware"  representation  of  true  ALGOL 
rather  than  deviations  from  it. 

The  translator  itself  has  been  completed,  and  it  has  been  running  for 
some  time  on  the  University  of  Illinois  'JO^h/^hOl.   computer  system.   Convenience 
features  such  as  input/output  routines  and  debugging  aids  are  continually  being 
developed  and  as  they  are  completed,  documentation  and  instructions  for  their 
use  will  be  available  as  parts  of  this  manual. 

In  the  preparation  of  this  manual,  the  writer  is  particularly 
indebted  to  John  Moore,  Research  Assistant  at  the  DCL,  for  his  critical 
reading  of  the  manuscript  and  his  many  suggestions  for  its  improvement. 

Section  9  w&s  prepared  in  its  entirety  by  David  Gries  during  his 
stay  at  Munchen  Technische  Hochschule. 

E.  L.  Murphree,  Jr. 
June  1,  1964 
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1.    Introduction 

The  programming  language  ALGOL-60  (hereafter  called  simply  ALGOL) 
provides  a  very  versatile  means  of  expressing  a  certain  class  of  algorithms  in 
a  form  which  is  at  the  same  time  palatable  for  human  beings  and  sufficiently 
precise  for  automatic  translation  by  computing  machines.   The  designers  of  ALGOL 
set  out  to  define  just  such  an  artificial  language  and  chose  basic  symbols 
that  would  meet  these  aims  without  regard  to  the  character  set  available. 

As  a  result  of  this  disregard  for  the  actual  availability  of  the 
basic  symbols  of  ALGOL,  a  relatively  large  number  of  them  are  not 
currently  available  in  the  symbol  sets  for  commercial  computers .   Clearly 
this  is  true  for  the  word  symbols,  go  to,  if,  while ,  etc.,  but  it  is  also 
true  for  such  commonly  encountered  mathematical  symbols  as  )(  (multiplication 
sign),  T"  (integer  divide  symbol),  <,<,>,>,  ],  [,  and  even  true,  in 
most  cases,  for  the  lower  case  alphabet*   Since  1958,  when  the  first 
ALGOL  Report  appeared,  no  serious  effort  has  been  exhibited  by  the  computer 
manufacturing  industry  to  fill  the  need  by  producing  special  ALGOL 
character  sets;  hence,  in  order  to  make  use  of  this  powerful  programming 
tool  ALGOL  certain  alterations  have  been  proposed  for  the  ALGOL  symbol 
set  when  the  symbols  are  a  part  of  a  program  which  is  to  be  entered  into 
a  computer. 

This  alternate  set  of  ALGOL  symbols  is  called  the  "hardware 
representation,"  and  is  more  or  less  standardized  by  SHARE*  in  the 
United  States  and  the  ALC0R-Group*  in  Europe.   But  for  this  difference  between 
publication  ALGOL  and  "hardware  ALGOL,"  the  major  portion  of  this  manual 
would  be  unnecessary.   This  difference  does,  however,  exist,  and  one 
of  the  aims  of  this  manual  is  to  make  it  possible  for  the  user  to  run 
programs  written  in  ALGOL  on  a  7090/9U  computer,  using  the  ALC0R-ILLIN0IS-7O9O 
ALGOL  Translator  (hereafter  called  the  Translator).   This  Translator  was 


*SHARE  is  the  IBM  7OO/7OOO  series  user's  group. 

The  ALC0R-Group  is  a  European  user's  group  organized  around  existing  ALG0L  compilers, 
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written  so  that  it  could  be  run  under  the  control  of  the  PORTHOS  Monitor 
System  (also  written  at  the  University  of  Illinois),  and  certain  requirements 
imposed  on  each  job  by  PORTHOS  are  stated  in  a  later  section.   It  is 
intended,  however,  that  this  manual  be  largely  independent  of  system 
requirements,  so  that  it  can  be  used  at  any  709^/9^  installation  which  has 
access  to  the  Translator.   Hence,  monitor  requirements  are  clearly  identified 
and  can  be  disregarded  by  those  who  are  using  the  Translator  independently 
of  PORTHOS . 

In  writing  this  manual,  it  has  been  assumed  that  the  users  will  be 
divided  roughly  into  two  groups :   those  individuals  who  have  a  working 
knowledge  of  ALGOL  and  merely  want  information  to  enable  them  to  transform 
their  programs  into  hardware  form  and  get  the  programs  onto  the  computer; 
and  those  persons  who  know  nothing  about  ALGOL,  but  know  how  to  program 
in  some  other  language  and  wish  to  extend  their  programming  activities 
to  include  the  use  of  ALGOL.   To  the  former,  the  manual  text  has  been 
addressed;  for  the  latter,  Appendix  A  has  been  provided,  in  the  form 
of  a  bibliography  of  tutorial  papers  and  books  on  ALGOL  with  a  brief 
discussion  of  each-.   These  individuals  should  turn  to  Appendix  A  now,  and 
select  reading  material  in  order  to  learn  ALGOL.   Further  study  of  this 
Manual  without  some  knowledge  of  the  language  would  probably  prove  fruitless. 
The  list  is  not  exhaustive .   For  other  and  more  recent  publications  in  English 
on  the  subject,  the  reader  is  referred  to  publications  of  the  Association 
for  Computing  Machinery  and  The  British  Computer  Society.   There  are,  of 
course,  other  publications  in  which  articles  on  ALGOL  appear.   In  addition, 
a  copy  of  the  ALGOL  Report  has  been  included  as  Appendix  B, 

It  is  important  to  note  that  the  prospective  user  is  expected 
to  already  know  how  to  program  for  a  digital  computer .   This  manual  is  in  no 
way  to  be  regarded  as  a  primer  in  programming,  in  ALGOL  or  any  other 
programming  language* 

The  form  of  presentation  has  been  chosen  because  of  its  inherent 
flexibility-,   There  will  undoubtedly  be  revisions  in  one  form  or  another 
of  parts  of  this  manual.   In  particular,  changes  and  additions  can  be 
expected  in  the  section  devoted  to  input/output,  as  new  and  revised 
procedures  for   input/output  become  available. 
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Lastly,  it  should  be  noted  that  this  manual  is  a  user's  manual,  and 
contains  little  information  for  the  relatively  rare  individual  who  feels 
that  he  must  alter  the  translating  program  itself. 

The  general  arrangement  of  the  presentation  is  from  the  simplest 
and  most  basic  requirements,  through  input/output  conventions,  to  the 
implementation  of  "code"  procedures,  and  debugging  aids*   Suggestions 
from  readers  for  improving  the  usefulness  of  this  manual  will  be  welcome . 
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2o  Hardware  Representation 

2.1.   Introduction. 

A  large  part  of  the  basic  symbols  of  ALGOL  are  not  available 
at  present  as  the  symbols  usable  by  computer  systems.   Therefore,  in  order 
to  use  ALGOL  at  all,  certain  alterations  have  had  to  be  made  to  the  ALGOL 
symbol  set. 

Computer  word  size  imposes  practical  limitations  on  the 
magnitude  of  numbers,  number  of  significant  digits,  etc.,  used  in  ALGOL 
programs.   Size  of  core  storage  effectively  limits  the  size  of  arrays. 
Some  of  the  more  important  restrictions  are  discussed  in  the  following 
sections.   Omitted  from  discussion  are  those  too  obvious  to  merit  special, 
detailed  attention  (e.g.,  a  computer  core  having  32,768  words  cannot  store  an 
array  of  2,000,000  elements)  and  those  which  exist,  but  will  cause  trouble  only 
in  the  rarest  of  instances  (e.g.,  only  ^096  different  identifier  names  are 
actually  permitted). 

In  the  tables  which  follow,  two  hardware  representations  of  some 
symbols  are  shown  under  the  headings  of  "hardware  representation"  and 
"tolerated  representation*"  Every  installation  which  uses  the  Translator 
has  the  option  of  permitting  the  use  of  certain  abbreviated  representations 
of  ALGOL  symbols  by  changing  a  parameter  in  the  Translator.   These  optional 
representations  are  called  "tolerated,"  and  in  every  case  where  such  a 
representation  occurs  in  a  source  program,  the  user  will  be  so  advised  on 
his  output.   Whether  such  a  use  is  a  fatal  error  depends  upon  the  policy 
of  the  installation.  All  representations  are  acceptable  at  the  University 
of  Illinois.   Not  all  symbols  have  both  representations  and  a  blank  in  the 
tables  under  "tolerated  hardware  representation"  implies  that  no  such 
representation  exists. 
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2.2.   Conventions  and  Restrictions. 

The  most  obvious  restrictions  are  that  subscripts  and  superscripts 
cannot  be  used.   But  there  are  others,  and  each  symbol  group  will  be 
discussed  in  turn.   For  the  moment,  we  will  consider  a  more  important  class 
of  unavailable  symbols,  that  of  the  word  symbols,  begin,  end,  if,  go  to, 
etc.   Clearly,  we  cannot  use  bold-face  print  or  underline  certain  words 
if  we  expect  to  enter  the  information  into  a  computer.  Another  convention 
must  be  adopted  to  identify  these  word  symbols  and  distinguish  them  from 
the  apparently  identical  English  words  "begin,"  "end,"  "if,"  "go  to,"  etc., 
to  which  they  bear  no  other  relation.   The  convention  which  has  been  adopted  here 
is  that  of  enclosing  each  of  the  word  symbols  in  a  pair  of  "escape  symbols", 
apostrophes;  that  is,  in  hardware  representation  the  word  symbol  begin  becomes 
'BEGIN',  end  becomes  -END',  go  to  becomes  'G0  10'.   It  should  be  noted  that 
except  in  strings,  blanks  are  ignored  in  hardware  representation,  just  as 
in  publication  ALGOL,  so  that  *G0  T0'  is  identical  to  'G0T0?  or  'G0   T0? 
and  'BE   GLN'  is  as  acceptable  as  'BEGIN1 . 

Minor  restrictions  not  mentioned  in  the  ALGOL  Report  have  been 
imposed  by  the  nature  of  the  10^0/^h   computer.   The  word  size  of  the  lOtyO/tyh 
is  35  binary  bits  plus  sign  bit;  in  floating  point  arithmetic,  8  of  these 
35  bits  are  used  for  the  exponent  part.   This  Translator  does  not  distinguish 
internally  between  integer  arithmetic  and  real  arithmetic,  but  does  both 
in  floating  point  mode.  Hence,  the  following  restrictions  exist  on  number 
size : 


38  <  exponent   _  <  +  38 
integer  I <  13k, 211, 121 ±Q 
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2.3*   Alphabet  and  Numerals. 

Note  that  "begin  has  become  'BEGIN'  and  not  'begin'  or  'Begin'. 
Standard  character  sets  for  computers  do  not  normally  include  lower  case  as 
well  as  upper  case  alphabetic  characters,  so  lower  case  letters,  though 
permitted  in  publication  ALGOL,  will  not  be  used  in  hardware  representation. 

Numerals  appear  in  publication  ALGOL  in  only  one  form;  hence  no 
alteration  of  numerals  is  necessary  in  hardware  representation,  since  this 
form  is  identical  to  that  in  computer  symbol  sets. 
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2.h-o   Word  Symbols  • 

A  large  part  of  the  ALGOL  symbols  are  word  symbols  and  a  list  of 
the  hardware  representations  is  given  below. 

The  careful  reader  will  note  that  two  non-ALGOL  word  symbols, 
'C0DE'  and  'FINIS *3    appear  at  the  end  of  the  list  below.   The  introduction 
of  these  word  symbols  was  made  necessary  by  implementation  requirements, 
and  neither  interferes  in  any  way  with  the  action  of  any  other  word  symbol. 
They  are  discussed  in  Sections  2«9»  and  2.10.  respectively. 


Publication  Language  Symbol 

Hardware  Repi 

e sent at ion 

go  to 

'G0  T0' 

if 

'IF' 

then 

'THEN' 

else 

'ELSE' 

for 

'F0R' 

do 

*D0' 

step 

'STEP' 

until 

'UNTIL' 

comment 

' COMMENT ' 

begin 

'BEGIN' 

end 

'END' 

own 

'0WN'  (See  section  8.1.) 

Boolean 

'B00LEAN' 

integer 

' INTEGER ' 

real 

'REAL' 

array 

'ARRAY' 

switch 

'SWITCH' 

procedure 

'  PR0CEDURE ' 

string 

1 STRING' 

label 

'LABEL' 

value 

'VALUE' 

code 

' C0DE ' 

finis 

'FINIS ' 
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2.5*   Boolean  Values. 

The  two  values  of  Boolean  variables  and  expressions,  true  and 
false,  are  ALGOL  word  symbols.   Their  hardware  representation  is  analogous  to 
that  of  other  word  symbols:   true  is  represented  as  'TRUE'  and  false  as  'FALSE'. 
The  actual  internal  representation  of  true  and  false  is 

true   777777777777 

false  000000000000 
The  last  statement  should  not  be  misinterpreted  as  meaning  that  true  and  false 
values  of  Boolean  variables  can  be  read  as  data  in  the  forms  shown  above. 
This  is  not  true  at  all;  there  does  not  exist  a  procedure  by  which  Boolean 
values  may  be  read  directly  as  data.   It  is  suggested  that  if  a  user  wishes  to 
input  Boolean  values,  he  use  the  real  values  0  and  1  for  false  and  true 
respectively  and  use  these  real  values  to  create  Boolean  values  by  means  of, 
for  example,  an  if  statement.   There  are,  of  course,  other  means  of  accomplishing 
the  same  end. 
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2.6.   Arithmetic  Operators. 

Some,  but  not  all,  of  the  ALGOL  arithmetic  operators  are  available 
in  the  7090/9^  and  lk-01  character  sets.  The  hardware  representations  of  all 
the  arithmetic  operators  are  tabulated  below. 


GOL  Symbol 

Description 

Hardware 

Tolerated 

Repr  e  s  en  t  at  i  on 

Representation 

+ 

plus 

+ 

- 

minus 

- 

X 

multiplication 

* 

/ 

division 

/ 

• 
• 

integer  devision 

// 

f 

exponent  iat  ion 

'POWER' 

■** 
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2»7»   Logical  and  Relational  Operators. 

The  logical  and  Boolean  operators  are  not  available  in  the  symbol 
set,  and  all  have  been  transliterated  into  word  symbols  enclosed  by  escape 
symbols-  For  the  convenience  of  the  skilled  ALGOL  programmer,  an  alternate, 
"tolerated,"  set  of  abbreviated  word  symbols  for  these  operators  is  provided^ 
at  many  installations.   The  beginning  ALGOL  programmer  will  doubtlessly  wish  to 
use  the  long  form,  since  there  is  less  chance  for  human  misinterpretation. 


ALGOL  Symbol    Description 


< 
< 

> 

> 


A 


less  than 

less  than  or  equal  to 

equal  to 

greater  than  or  equal  to 

greater  than 

not  equal  to 

logical  equivalent 

logical  implies 

logical  or 

logical  and 

logical  negation 


Hardware 

Tolerated 

Representation 

Representation 

'LESS'. 

'LS' 

'N0T  GREATER' 

'LQ! 

'EQUAL' 

'EQ' 

'NOT  LESS' 

'GQ' 

' GREATER ' 

'GR' 

'NOT  EQUAL' 

'NQ' 

'EQUIV 

'EQV 

'IMPL' 

'IMP' 

'OR' 

» 

'AND' 

•NOT' 
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2.8.   Separators,  Brackets  and  Others. 

This  category  of  symbols  includes  all  those  not  previously- 
discussed.   The  following  list  shows  each  publication  symbol,  its  hardware 
representation  and  its  tolerated  hardware  representation,  if  any. 

Tolerated 


Publication 
Language 


10 


for  b 

( 

) 

E 

] 
f 


Description 

comma 

decimal  point 
base  10 
colon 
semicolon 
assignment  symbol 
blank  space 
left  parenthesis 
right  parenthesis 
left  bracket 
right  bracket 
left  string  quote 
right  string  quote 


Hardware 
Representation 


( 
) 

(/ 
/) 
'(' 
')' 


Hardware 
Representation 
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2.9-    The  'C0DE'  Word  Symbol. 

The  'C0DE'  word  symbol  is  not  a  part  of  the  set  of  word  symbols  in 
the  ALGOL  Report.   The  word  "code"  is  used  in  the  report  to  indicate  that 
a  procedure's  body  does  not  appear  with  its  declaration,  but  appears  instead 
outside  the  program  in  which  it  is  declared,  as  a  procedure  written  either  in 
ALGOL  or  some  other  source  language.   Its  use  with  this  Translator  has  that  same 
purpose,  but  it  will  be  considered  as  a  true  word  symbol  with  the  form  'C0DE'. 

For  discussion  of  the  code  procedure  see  Section  h.3- 
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2.10.   The  'FINIS'  Word  Symbol. 

There  is  no  provision  in  ALGOL  for  notifying  a  translating 
program  that  the  end  of  a  source  program  has  been  reached.   It  has  been 
found  desirable^  from  the  standpoint  of  efficient  translation  of  ALGOL 
source  programs,  to  have  some  means  of  signaling  the  end  of  a  source 
program,  and  the  word  symbol  'FINIS'  is  used  for  that  purpose  with  this 
Translator.   Hence  'FINIS'  must  be  the  last  word  symbol  of  every  ALGOL 
source  program,  following  the  final  'END'  of  the  program  or  comments  after 
this  final  'END*. 
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3.   Input /Out put  Operations 
3»1»   Introduction 

There  is  no  specification  in  the  ALGOL  Report  for  input/output 
operations  in  ALGOL.   This  was  not  an  oversight  on  the  part  of  the  designing 
committee^  but  a  result  of  its  realization  that  input/output  operations 
vary  so  much  from  one  installation  to  another  and  from  one  computer  to 
another  that  specifications  for  input/output  were  better  left  to  each 
installation.   Hence  the  Translator  uses  code  procedures  for  input/output » 
The  use  of  these  procedures  is  described  in  detail  in  the  following  sections. 
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3«2»    Code  Procedures  for  Input/Output. 

There  are  several  ALGOL  code  procedures  which  are  associated  with 
the  input/output  operations  presently  available  through  the  Translator. 
These  basic  I/O  procedures  are  viewed  in  the  same  light  as  standard  functions; 
that  is,  they  are  considered  to  have  such  importance  and  universal 
applicability  that  they  are  global  to  all  ALGOL  programs  compiled  by  the 
Translator.   For  the  user  this  means  that  there  is  no  need  to  declare  the 
input/output  procedures.   It  further  implies  that  the  identifiers  used  for 
these  procedures  must  have  the  same  restricted  use  as  those  set  aside  for 
the  standard  functions,  sin,  cos,  exp,  etc.   To  use  the  identifiers  for  any 
other  purpose  can  cause  an  error  condition.   However,  one  can  "submerge"  any 
of  these  procedure  names  by  declaring  a  procedure  or  variable  with  the  same 
name,  as  one  can  do  with  ordinary  identifiers  in  nested  blocks. 

For  example , 

begin  real  a,  b,  c; 
read  (a,  b); 
c  :=  a  +  b; 
print  (a,  b,  c) 
end 
shows  the  use  of  the  read  and  print  code  procedures.   Neither  has  been 
declared  in  the  example,  since  this  is  unnecessary. 
On  the  other  hand, 
begin  real  a,  b,  c,  d; 
read  (b);  begin 

procedure  read  (e,  f ); 
e:=  ft2;  read  (a,  b) 
end; 
read  (d);  c :=  a  +  b; 
print  (a,  b,  c,  d) 

ml 

shows  an  entirely  different  use  of  a  declared  procedure  with  the  same  name 

as  read.   This  procedure  is  declared  in  an  inner  block,  used  there,  and  is  no 

longer  defined  after  exit  from  that  block.   Hence  the  statement  "read  (b)" 

causes  the  real  number  b  to  be  read;  "read  (a,  b)"  causes  the  calculation  a:=  bf  2 

to  be  made;  and  "read  (d)"  causes  the  real  number  d  to  be 

read. 
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3<3*    Simplified  Input/Output 

Since  ALGOL  is  a  language  designed  for  expressing  algorithms  in  numerical 
analysis,  input  and  output  operations  are  concerned  mainly  with  the  transmission 
of  numerical  data. 

There  are  two  input  procedures  and  two  output  procedures  designed 
especially  for  the  user  who  does  not  have  specific  format  requirements, 

The  two  simplified  input  procedures  are  read  and  readmatrix,  and  both 
accept  data  in  a  free  form.   The  form  of  the  read  procedure  call  is 

read  (a,  b,  c, . . .  ) 
where  a,  b,  c,...  are  variables,  either  simple  or  subscripted.   The  procedure 
reads  one  variable  at  a  time,  so  if  subscripted  variables  appear  in  the  list, 
then  subscripts  must  be  specified.   For  example,  let  a  be  an  array  of  dimension 
3x4  and  b  and  c  be  simple  variables.   Then 

read  (a,  b,  c) 
is  incorrect,  while 

read  (a  (1,2)  b,  c) 
is  acceptable.   Of  course,  in  the  last  case,  only  element  a  (1,2)  will  be 
read,  and  not  the  entire  array. 

If  the  user  has  an  entire  array  to  be  read,  a  second  easy-to-use 
procedure  is  available,  readmatrix.   The  form  of  its  call  is 

readmatrix  (a,  b,  c,...) 
where  a,  b,  c,...  are  array  identifiers.   The  procedure  reads  elements  of  an 
array  in  such  a  way  that  the  last  index  changes  first,  then  the  preceding  one,  etc- 

The  input  data  in  both  cases  is  assumed  to  be  in  a  free 
form.   The  data  can  be  any  ALGOL  number  (see  section  2.5o,  ALGOL  Report)  and 
placed  anywhere  on  a  card.   The  numbers  are  separated  by  three  blanks,  a 
comma,  or  the  end  of  the  card  (column  72).   Successive  calls  for  either  of  the 
procedures  does  not  initiate  reading  from  a  new  card;   reading  proceeds 
continuously  from  one  number  to  the  next  on  a  card  and  when  that  card  is 
exhausted  (column  72)  it  proceeds  to  the  next. 
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The  two  output  procedures  for  simplified  use  are  print  and  printmatrix. 
The  form  of  the  print  call  is 

print  (E^  E2,  ...) 
where  E-.  >   E  ,  . ..  represent  arithmetic  expressionSo   Of  course,  an  arithmetic 
expression  may  consist  of  simply  a  variable  name,  and  in  most  cases  it 
probably  will,  so 

print  (area,  depth,  velocity  *  weight) 
is  an  acceptable  print  procedure  call.   All  the  output  from  such  a  call  will 
be  printed  on  the  off-line  printer  according  to  the  standard  format  list 

?1X, 5E1U.7'. 
That  is,  the  numbers  will  be  printed  in  lines  of  5>  each  with  7  digits  to  the 
right  of  the  decimal  point,  in  what  is  commonly  called  "scientific  notation". 
The  number  -37^5 • 831  would  appear  in  this  notation  as 

-.3765831E  uUk 
and  the  number  „ 0037^  becomes 

,3760000E-U02 
The  printmatrix  procedure  call  is 

printmatrix  (a,  b,  c,  <>*<.) 
where  a,  b,  c,e».  are  names  of  arrays,   Output  is  by  rows  in  exactly  the  same 
format  as  that  of  print,  5  elements  per  line.   The  3  x  k   array  b  would  be 
printed  as 

bll  b12  b13  \h   b21 
b22  b23  b24  b3l  b32 

b33  V 

No  alphabetic  data  can  be  input  or  output  with  any  of  the  four 
simplified  procedures, 

For  more  control  over  the  format  of  the  input  and  output,  other 
procedures  are  available  and  are  described  in  the  following  sections. 
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At  this  point.,  it  appears  desirable  to  begin  using  certain  unfamiliar 
terms  and  notation,  such  as  "syntax"  and  "semantics"  and  unconventional 
brackets  <  >  and  vertical  lines  | .   These  conventions  have  been  borrowed 
from  the  field  of  linguistics  and  are  highly  useful  in  describing  precisely 
how  parts  of  a  language  (and  ALGOL  is  a  language,  however  limited  it  may  be) 
can  be  put  together  to  mean  something  to  someone  or  something-   The  reason 
for  including  these  conventions  here  is  mainly  to  be  precise  in  describing 
certain  things  omitted  by  the  ALGOL  Report,  but  also  to  initiate  the  ALGOL 
beginner  in  the  terminology  of  the  ALGOL  Report.   Ability  to  read  and  understand 
the  Report  will  be  indispensable  to  the  active  ALGOL  user,  so  an  attempt  to 
entirely  avoid  the  notation  problem  would  be  false  economy.   If  the  reader 
keeps  in  mind  these  interpretations  of  the  symbols,  he  should  progress  well. 

: :=  means  "is" 
j    means  "or" 

<  >  are  simply  brackets  that  mean  that  the  terms  enclosed  by  them 
go  together  to  form  a  single  unit. 

For  example, 

<unsigned  integer>  : :=  <digit>  |  <unsigned  integer>  <digit> 
can  be  read  "An  unsigned  integer  is  either  a  digit  or  an  entity  composed 
of  an  unsigned  integer  followed  by  a  digit."   This  is  simple  enough,  but  the 
definition  is  strange  in  that  it  uses  "unsigned  integer"  to  define 
"unsigned  integer."  This  is  a  recursive  definition  and  is  quite  simple 
to  explain:   an  unsigned  integer  is  either  a  single  digit  (0,1,2, ... ,9)  or 
an  entity  composed  of  a  digit  following  one  or  more  digits.   With  these 
conventions  in  mind,  we  proceed  to  an  exposition  of  the  more  comprehensive 
input  and  output  procedures. 
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3.4.   The  Format  Procedure. 

3.4.1.   Introduction 

The  format  procedure  provides  the  basic  information  to  the  input/output 
procedures  for  the  placement  and  scaling  of  information,  whether  it  is  on  a 
card  image  as  input  or  on  a  printed  page  as  output. 

In  the  following  section,  the  complete  syntax  of  the  format  procedure 
is  given  in  the  same  notation  used  for  the  ALGOL  Report;  a  discussion  of  the 
meanings  and  uses  of  the  various  constructions  completes  the  coverage  of  the 
format  procedure. 
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3<»4o2.   Syntax. 


<format  call> 
<format  list> 
<format  string> 

<secondary  list> 
<secondary> 

<format  primary> 

<field  specifier> 


:=  F0RMA.T  (<integer  expression^  <format  list>) 

:=  <format  string>  |  <format  list>,  <format  string> 

:=  <left  string  quote>  <secondary  list>  <right  string 

quote> 
l-   <secondary>  |  <secondary  list>,  <secondary> 
:=  <field  specifier>  |  (<format  primary>)  j  <unsigned 

integer>  (<format  primary>) 
:=  <field  specifier>  |  <format  primary>;  <field 

specifier> 
:=  <F-conversion>  |  <E-conversion>  |  <X-field> 
<H-field>  I  <void-specif ication>  |  <record 

separator> 
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3-A.3*    Semantics, 

<format  call>:   The  form  of  the  format  procedure  call  is 
F0RMAT   (E,  "A,  B,  C,  ...")  , 
where  the  E  represents  an  integer  expression  and  the  list  of  indefinite 
length,  A,  B,  C,  . .»,  represents  units  of  information  concerning  the  form 
of  data.   The  integer  expression  denoted  by  E  above  identifies  a  logical 
tape  unit  available  to  the  user.   It  is  the  responsibility  of  the  user  to 
satisfy  this  requirement. 

The  tape  numbers  designated  by  the  integer  expression  E  correspond 
to  the  tape  units  as  follows: 

E  Unit  Use 

1  Bl  (input)  or  A3  (output)  regular  input  (output)  tape 

2  B2  scratch  tape 

3  B3  scratch  tape 
k  A^  scratch  tape 
5*            Bh  scratch  tape 

6  A3  regular  print  tape 

7  Bl  regular  input  tape 
9             B5  scratch  tape 

The  term  "scratch  tape"  in  the  table  means  that  during  execution  those 
tapes  are  available  to  the  user  for  whatever  use  he  wishes. 

The  number  E=l  is  a  special  all-purpose  parameter  which,  when  used, 
automatically  causes  designation  of  the  regular  input  tape  (Bl)  if  the  call  is 
readf  or  readmatrixf  or  the  regular  print  tape  (A3)  if  the  call  is  printf  or 
printmatrixf . 

<format  list>:   This  is  a  list  of  ALGOL  strings  separated  by  commas.   No  fixed 
number  of  such  strings  is  required  in  a  format  call,  in  contrast  to  the  normal 
procedure  call.   That  is,  the  format  procedure  is  considered  to  have  an 
arbitrary  number  of  formal  parameters. 

*using  logical  tape  5  in  connection  with  an  output  procedure  causes  information 
written  on  the  output  tape  with  an  indication  that  it  is  to  be  punched  rather 
than  printed. 
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Each  of  the  strings  must  "be  enclosed  in  string  quotes,  and  might 
appear  as  "A,  B,  C,...",  where  A,  B,  C,  . ..  represents  a  list  (of  arbitrary 
length)  of  units  of  information  concerning  the  form  of  data,,   These  units  of 
information  are  field-specifiers,,  which  prescribe  a  form  for  data,  or  collections 
of  field-specifiers  enclosed  in  parentheses..   The  field-specifiers  provide  for 
input  or  output  of  (l)  numerical  data  in  the  familiar  decimal  notation 
(as  123.76)  or  in  "scientific  notation"  or  exponential  form  (as  .12376  x  10  ) , 
(2)  blank  fields,  and  (3)  alphabetic-numeric  information,  such  as  titles, 
headings,  notes  to  the  user,  etc.,  or  act  as  record  separators. 

<secondary>:   The  secondary  exists  for  two  important  reasons.   Both  are 
concerned  with  the  use  of  a  portion  of  a  format  list  more  than  once  for  a 
given  input  or  output  procedure  call.   To  be  realistic  here,  we  must  assume 
that  the  secondary  consists  of  several  field-specifiers  enclosed  by  parentheses, 
and  perhaps  preceded  by  an  unsigned  integer.   Such  a  secondary  might  appear 
as 

3(P1,  P2,  P3) 

where  the  P.  are  field  specifiers.   This  has  the  same  effect  as  the  format  list 

(P]_,  P2,  P3),  (P1,  P2,  P3),  (P1,  P2,  P3) 
and,  except  in  the  case  mentioned  below,  the  same  effect  as 

P-.  >    PpJ>  Po^  P-i  >       o}       Q>  "^1  ;  o}       3 

The  other  use  for  the  secondary  enclosed  by  parentheses  occurs  when 
an  input  or  output  procedure  call  lists  more  variables  than  are  listed  in  the 
controlling  format  procedure  call.  When  the  format  list  has  been  exhausted  but 
the  input  or  output  list  has  not,  then  control  of  format  goes  back  to  the  last 
left  parenthesis  before  the  end  of  the  format  list,  and  input  or  output  proceeds 
according  to  the  field  specifiers  to  the  right  of  this  left  parenthesis. 

<primary>:   The  primary  consists  of  a  single  field  specifier  or  several  field 
specifiers  separated  by  commas.   It  should  be  apparent  that  in  many  cases  a 
primary  is  also  a  secondary  (e.g.,  when  it  consists  of  a  single  field  specifier). 
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<record  separator>:   The  record  separator  is  a  slash  or  a  series  of  slashes . 
Since  input  is  in  the  form  of  card  images  on  magnetic  tape.,  each  slash  in 
the  format  list  causes  reading  of  a  new  card  image;  for  output,,  each  slash 
causes  a  new  line  of  printing  or  punching  to  "be  started.   The  first  field  of 
the  new  record  is  that  specified  by  the  first  field  specifier  following  the 
record  separator,.   In  general,   n   successive  slashes  will  cause  n  -  1  blank 
lines  on  the  printed  output  or  n  -  1  successive  cards  not  read.. 

The  format  procedure  call  must  account  for  every  column  in  the  unit 
record  with  which  it  is  concerned.   With  input,  the  originating  medium  is  a 
card,  so  every  column  on  the  card  must  be  accounted  for,  beginning  with  column  1 
and  continuing  through  the  last  column  containing  information  of  interest*   The 
Translator  assumes  that  unaccounted  for  columns  remaining  to  the  right  in  a  card 
image  are  of  no  interest,   For  example, 

FORMAT  (7,  "F  10,1+,  3  f  15,6,  5  X,  F  10.4,  10  X" ) 
accounts  for  all  80  columns  on  the  card,  even  though  the  last  10  (7I-80)  columns 
are  to  be  skipped  and  not  read.   We  can  accomplish  exactly  the  same  thing  by 
FORMAT  (7,  "F  10.4,  3  F  15-6,  5  X,  F  10.4") 

On  the  other  hand,  we  cannot  ignore  leading  blank  fields  (or  X-fields, 
generally).   Thus, 

F0RMAT  (7,  "F  10.4,  5  X,  F  10.4") 
and 

F0RMAT  (7,  "10  X,  F  10,4,  5  X,  F  10.4") 
are  not  equivalent. 

The  same  general  idea  is  true  for  output,  the  essential  difference 
being  the  fact  that  instead  of  reading  card  images,  we  are  printing  lines  of 
characters,  133*  characters  per  line,  or  punching  cards,  80  columns  per  card, 
and  every  space  must  be  accounted  for.  Again  all  unspecified  spaces  to  the  right 
of  specified  fields  are  left  blank. 

*the  first  character  of  every  output  record  to  be  printed  is  used  as  carriage 
control  by  the  1401.   So  at  most  132  characters  per  line  can  actually  be  printed. 
For  information  about  carriage  control  see  the  P0RTH0S -manual. 
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3«5«   Field  Specifiers. 

3.5.1.   Syntax. 

<F-conversion>   : :=  F  <unsigned  integer>  .  <digit>  |  <unsigned  integer> 

F  <unsigned  integer>  .  <digit> 
<E-conversion>   : :=  E  <unsigned  integer>  .  <digit>  |  <unsigned  integer> 

E  <unsigned  integer>  .  <digit> 
<X-field>       '-  '•=   <unsigned  integer>  X 
<H-field        : :=  <unsigned  integer>  H  <proper  string> 

<record  separator::  =  /|  <record  separator>/ 
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3.5.2.   Semantics. 

<F-conversion>  • 

The  F-conversion  field  specifier  is  of  the  form  nFw,d,   where 
n  ,   w  ,   and  d  are  unsigned  integers.   If  n  =  1,  it  may  be  omitted. 

The  n  in  this  field  specifier  denotes  the  number  of  such 
consecutive  fields;  hence  3FIO.3  is  equivalent  to 

F10.3,F10.3,F10.3, 
and  1F10.3  is  equivalent  to  simply  FIO.3. 

The  w  in  this  field  specifier  indicates  the  total  width  of  the 
field  in  number  of  characters.   The  appearance  of  numbers  in  the  F-conversion 
is  the  familiar  form  of  a  sequence  of  decimal  digits  in  which  there  appears 
one,  and  only  one,  decimal  point.   Hence,  the  total  characters  in  the 
field  must  include  the  decimal  point.   A  number  in  this  conversion  may  be 
either  plus  or  minus,  so  w  must  also  include  one  column  count  for  the  sign. 

For  input  the  plus  sign  may  or  may  not  be  punched  at  the  discretion 
of  the  user;  the  minus  sign  must  be  punched  and  must  precede  the  most  significant 
digit  in  the  field. 

For  output,  the  plus  sign  will  not  be  printed;  the  minus  sign  will 
be  printed  in  the  first  column  to  the  left  of  the  most  significant  digit  in 
the  field.   Leading  zeroes  will  not  be  printed. 

The  d  in  the  field  specifier  denotes  the  number  of  digits  to  the 
right  of  the  decimal  point.   This  number  does  not  include  space  for  the  decimal 
point  itself,   d  must  not  be  greater  than  20. 

For  example, 

format  (6,  <F  Q.k,   F  6.2,  F  10.33) 
specifies  a  set  of  three  fields,  of  8,  6,  and  10  columns  respectively. 
In  the  first,  h   digits  lie  to  the  right  of  the  decimal  point  (which  takes 
up  one  column  itself).   This  leaves,  of  the  original  8  columns,  one  more 
for  the  sign  and  2  for  digits  to  the  left  of  the  decimal  point.   In  the 
second,  2  digits  lie  to  the  right  of  the  decimal  point  and  2  to  the  left, 
leaving,  of  the  original  6  columns,  one  for  the  sign  and  one  for  the 
decimal  point.   In  the  third,  3  digits  lie  to  the  right  of  the  decimal  point 
and  5  to  the  left.  
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Suppose  we  wish  to  print  -12.1372,  21,63,  and  +  17238,312 
according  to  the  above  format  specification.   With  b  representing  blank 
spaces,  our  printed  line  would  look  like  this: 

•12 .  1372  b2l.  631317238. 312 

field  1  field  2   field  3 

<E-conversion>. 

The  E-conversion  field  specifier  is  of  the  form  nEwod,  where 
n  ,   w  and  d  are  unsigned  integers .   As  with  the  F-conversion,  if  n  =  1, 
it  may  be  omitted. 

The  n  in  this  field  specifier  denotes  the  number  of  such  consecutive 
fields;  hence  3  E  13*7  is  equivalent  to 

E  13.7,  E  13-7;  E  13.7. 
and  1  E  13 • 7  is  equivalent  to  E  13 . 7* 

Again  paralleling  the  F-conversion,  the  w  denotes  the  entire  width 
of  the  field  in  number  of  characters.   The  appearance  of  numbers  in 
the  E-conversion  resembles  the  form  widely  known  as  "scientific  notation," 
a  decimal  fraction  followed  by  an  exponent  of  10,  as,  for  example, 

.78325  x  103. 
The  exact  form  of  numbers  in  the  E-conversion  is 

+»dd. . .  d  E±ee, 
where  d's  represent  decimal  digits,  the  E  implies  "exponent  follows" 
and  the  ee  represents  a  two  digit  exponent  of  10.   The  two  sign  positions, 
one  for  the  number  itself  and  one  for  the  exponent,  are  indicated  by  +«, 
Note  that  every  number  in  this  conversion  has  at  least  six  columns  of  its 
field  used  for  "bookkeeping"  symbols : 

+  .  E  +ee 
Hence,  if  a  field  were  specified  as  E  13° 7;  ihe  field  would  be  13 
columns  wide,  only  7  of  which  can  contain  digits  of  the  number  put  into 
this  conversion.   Similarly,  E  l4«9  is  an  invalid  field  specification, 
since  only  1^+  -6  =  8  columns  are  available  for  digits  of  the  number..   A 
specification  of  E  1U.3  does  not  use  all  8  of  the  columns  available  to  it 
for  placement  of  significant  digits  of  the  number. 
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For  example,,  if  we  want  to  place  -138,71^-31  into  E-conversion 
form  in  a  field  1^  columns  wide,  we  specify  E  1^4-.  8,  and  we  have 

-.13871431E+06. 
A  field  specification  of  E  12.6  results  in 

-.13871^E+06, 
and  one  of  E  lk.6   results  in 

-.1387lirt)bE+06. 
In  both  these  last  cases,  information  has  been  lost  in  the  conversion 
(the  last  two  digits,  31?  of  "the  original  number). 

Deviations  from  this  form  are  possible  for  input  and  are  described 
in  the  PORTHOS  Manual.   No  deviations  are  permitted  for  output. 

The  F-conversion  and  E-conversion  are  the  only  conversions  presently 
provided  with  ALGOL  for  input/output  of  numerical  information,  and  integers  as 
data  have  not  been  mentioned.   There  is  no  special  integer  conversion,  but 
integers  can  be  handled  through  either  the  F-conversion  or  the  E-conversion. 
For  example,  the  integer  317  becomes,  in  F  5-0  conversion 

+317.  or  b317. 
It  is  important  to  note  that  the  sign  and  decimal  point  must  be  accounted  for. 
The  same  number  in  E  9-3  becomes 

+.317E+03  or  b.317Eb03; 
in  this  case,  we  have  had  to  provide  for  the  6  character  spaces  always 
present  in  the  E-conversion.   In  the  E-conversion,  d  must  not  be  greater  than  20, 

<X-field>. 

The  X-field  specifier  is  of  the  form  nX,  where  n  is  an  unsigned 
integer.   The  X-field  is  a  field  of  n  blank  spaces.   The  n  cannot  be 
omitted,  even  if  it  equals  1. 

The  X-field  makes  it  easy  to  space  printed  output  as  desired,  and 
permits  skipping  of  unwanted  information  on  input  cards.   For  example,  suppose 
we  have  cards  with  six  10-column  fields  (beginning  in  column  l)  and  we  wish 
to  read  only  from  the  second,  third  and  fifth  fields.  Assume  the  data  in 
these  fields  are  in  F  10. ^  conversion.   The  format  call  will  look  like  this: 
format  (6,  '10X,  2  F  10. h,    10X,  F  10.V). 
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A  readf  call  of 

readf  (A,  B,  C) 

will  cause  the  data  in  fields  2,  3  and  5  to  be  stored  as  variables  A,  B 

and  C,  respectively.   Note  that  in  the  format  call  above,  the  sixth  field 

has  not  be  accounted  for,  and  need  not  be*. 

<H-field>. 

The  H-field  specifier  is  of  the  form 

nHss. * . s, 
where  the  n  is  an  integer  and  the  ss...s  is  a  proper  string;  i.e., 
the  ss...s  is  a  list  consisting  of  any  n  characters  available  in  the 
character  set,  except  the  escape  symbols. 

The  use  of  the  H-field  is  primarily  to  print  labels,  titles, 
variable  names,  etc.,  so  as  to  make  interpretation  of  printed  output  easier. 
For  example , 

F0RMAT  (7,  "23  HbC0MPUTEDbAVERAGESbb=bb,  F  12. V1)., 

PRINTF   (AVG) 
will  cause  the  23  characters,  including  blanks,  following  H  to  be  printed, 
followed  by  the  current  value  of  the  variable  AVG  in  F  12.4  conversion.)   If 
AVG  =  138.7642,  we  would  have 

bC0MFUTEDbAVERAGESbb=bbbbbbl38.7642  , , 
as  the  printed  output* 

The  user  is  responsible  for  assuring  that  n  is  precisely  the 
number  of  characters  he  intends  to  be  in  the  H-field. 
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3.6.   The  Input  and  Output  Procedures. 

3.6.1.   Introduction. 

The  input  and  output  procedures  must  each  be  preceded  "by  a 
format  procedure  call  in  order  for  the  computer  to  be  able  to  correctly 
position  and  scale  the  input  or  output  information,  as  the  case  may  be. 
The  set  of  simplified  input/output  procedures  assumes  a  standard  format,  so 
that  the  user  need  not  concern  himself  with  providing  formats  for  them. 
Indeed,  he  cannot,  since  the  simplified  procedures  ignore  all  formats. 
Complete  information  on  all  input/output  procedures  follows. 
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3^6.2, 


Syntax. 


<read  call> 

<readf  call> 

<readmatrix  call> 

<readmatrixf  call> 

<input  list> 

<array  identifier  list> 


=  READ  (<input  list>) 
=  READF  (<input  list>) 
=  READMATRIX  (<array  identifier  list>) 
=  READMATRIXF  (<array  identifier  list>) 
=  <variable>  |  <input  list>,  <variable> 
=  <array  identifier>  |  <array  identifier  list>, 
<array  identifier> 
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3.6.3.    Semantics. 

<read  call>:   The  form  of  the  read  procedure  call  is 

read  (a,  b,  c,  . . . ) 
where  a,  b,  c,  ...  represents  a  list  of  variables,  simple  or  subscripted, 
separated  by  commas.   They  are  read  from  card  images  on  the  input  tape  (number  7) 
ignoring  any  format  calls  which  may  appear  in  the  program.   The  procedure  does 
not  start  reading  automatically  from  a  new  card,  but  accepts  ALGOL  numbers  in 
any  defined  form  (see  the  ALGOL  Report,  section  2.5;  Numbers),  separated  by  a 
comma,  three  blanks,  or  the  end  of  a  card  (column  72),  continuously  until  the 
input  list  is  exhausted.   Further  calls  for  the  read  procedure  cause 
continuation  of  reading  the  same  card,  not  for  a  new  card. 

<readf  call>:   The  form  of  the  readf  procedure  is  identical  to  that  of  the 
read  call.   The  difference  between  the  two  is  that  the  readf  procedure 
reads  input  according  to  the  last  executed  format  procedure  call. 

<readmatrix  call>:  The  form  of  the  readmatrix  procedure  call  is 

readmatrix  (a,  b,  c,  ...) 
where  a,  b,  c,  «..  are  array  identifiers.   The  procedure  reads  elements  of 
an  array  in  such  a  way  that  the  last  index  changes  first,  then  the  preceding 
one  etc.   The  elements  are  acceptable  in  any  ALGOL  number  form,  separated  by 
three  blanks,  a  comma,  or  the  end  of  a  card  (column  72). 

<readmatrixf  call>:  The  form  of  the  readmatrixf  procedure  call  is  identical 
to  that  of  the  readmatrix.   The  difference  between  the  two  is  that  the 
readmatrixf  procedure  reads  input  according  to  the  last  executed  format 
procedure  call. 
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<input  list>:   The  form  of  the  input  list  is 

l\.  %       X5  p       L*  y        •  •  • 

where  A,  B,  C,  ...  represents  a  series  of  identifiers.   They  may  be  simple 
variables  or  elements  of  an  array;  in  the  latter  case,  the  subscripts  must 
be  present,  as  for  example  a  (2,3)  and  b  (7,6).      The  array  identifier  above, 
without  the  subscripts,  is  not  acceptable. 

The  user  should  keep  in  mind  that  the  format  procedure  call  not  only 
controls  the  form  of  the  data  but  also  prescribes  the  logical  tape  number 
from  which  the  data  is  read  (see  section  3«^«3»)« 
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3.6.4.   Syntax. 


<print  call> 
<printf  call> 
<printmatrix  call> 
<printmatrixf  call> 
<output  list> 


:=  PRIffi:  (<output  list>) 
:=  PRINTF  (<output  list>) 
:=  PRINTMATRIX  (<array  identifier>) 
:=  PRINTMA.TRIXF  (<array  identified) 
:=  <arithmetic  expression>  |  <output  list>^ 
<arithmetic  expression> 
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3.6. 5 »   Semantics. 


<print  call>:  The  form  of  the  print  procedure  call  is 

print  (E1,  E^  ...  ) 
where  E-, }   E  ,  «...  represents  arithmetic  expressions.   The  procedure  evaluates 
the  arithmetic  expressions  at  execution  time  and  places  the  results  on  the 
output  tape  for  the  off-line  printer  according  to  the  standard  format  list 

'IX,  5E11+.7' 


<printf  call>:   The  form  of  the  printf  procedure  call  is 

printf  (E1,  Eg,  ...) 
where  E, ,    E  ,  ...  represent  arithmetic  expressions.   Despite  its  name, 
the  procedure  can  be  used  for  various  output  tasks,  such  as  placing  intermediate 
results  on  scratch  (utility)  tapes,  placing  card  images  on  the  punch  output 
tape  for  punching  into  cards,  or  printing  output  on  the  off-line  printer, 
depending  upon  the  logical  tape  unit  prescribed  by  the  last  executed  format 
procedure  call  preceding  the  printf  procedure  call  (see  section  3«^»3*)> 
which  also  controls  the  data  transmitted. 


<printmatrix>:  The  form  of  the  printmatrix  procedure  call  is 

printmatrix  (a,  b,  c,  ..-) 
where  a,  b,  c,..*  are  array  identifiers.   The  elements  of  the  array  are  printed 
on  the  off-line  printer  according  to  the  standard  format  list 

'5F1U.7' 
Hence,  the  2x3  matrix  a  will  be  printed  as 

all  al2  ai3  a21  a22 
a23 

<printmatrixf>:  The  form  of  the  printmatrixf  procedure  call  is 

printmatrixf  (a,  b,  c,  *••) 
where  a,  b,  c,  ...  are  array  identifiers.   The  elements  of  the  array  are 
output  to  the  tape  unit  specified  by  the  last  executed  format  procedure 
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call  preceding  the  printmatrixf  procedure  call,  which  also  controls  the 
format  of  the  data  thus  transmitted. 

<output  list>:  The  output  list  consists  of  arithmetic  expressions  of  any  kind, 
separated  "by  commas,  but  cannot  be  void.   That  is,  an  output  procedure  such  as 

printf(   ) 
is  not  valid,  even  though  the  controlling  format  may  consist  entirely  of 
an  H-field. 
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3.7-  Data. 

The  actual  introduction  of  data  into  the  computer  is  done  by 
means  of  the  PORTHOS  Monitor  System  (see  section  5) >    and  requires  the  use 
of  one  basic  PORTHOS  control  instruction 

$  DATA 
which  must  appear  on  a  card,  with  the  $  in  column  1,   which  immediately 
follows  the  last  card  of  the  ALGOL  source  program.   The  data  cards 
then  follow  the  $  DATA  card.   Form  of  data  has  been  discussed  in  Sections 
3»3»^  3»4.,  and  3»5»   Deviations  from  the  established  formats  are  discussed 
in  the  PORTHOS  Manual. 
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k.  Procedures. 

k.l.      Introduction. 

One  of  the  most  useful  features  of  ALGOL  is  the  ease  with  which 
subprograms  or  pieces  of  programs  that  are  frequently  used  can  he  included  in 
a  given  ALGOL  program  by  means  of  the  ALGOL  procedure.   There  are  generally 
two  types  of  procedures  which  will  be  considered  for  use  by  ALGOL  users; 
l)   those  written  in  ALGOL  and  2)   those  written  in  some  other  source  language 
We  consider  each  in  turn. 
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k.2.      Procedures  written  in  ALGOL. 

These  procedures  present  no  unusual  problems.   They  should  "be 
"written  in  accordance  with  the  description  of  procedures  in  the  ALGOL 
Report  and  transliterated  for  machine  use  as  described  in  the  section  of 
this  manual  concerned  with  hardware  representation. 
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. 3»   Procedures  Written  in  Other  Source  Languages. 

This  type  of  procedure  can  easily  be  incorporated  into  an  object  program 
produced  by  the  ALGOL  translator.   However,  the  user  must  write  such  a  procedure 
so  as  to  be  compatible  with  the  translator- produced  object  program.   All  infor- 
mation necessary  to  do  this  will  be  found  in  Section  9* 
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The  PORTHOS  System  and  the  ALGOL  Translator. 

The  Translator  was  originally  designed  to  be  run  under  the  control 
of  the  PORTHOS  Executive  System  and  many  of  the  "housekeeping"  chores  for  the 
Translator  such  as  the  manipulation  of  magnetic  tapes ,  loading  the  translated 
program  for  execution,  processing  error  conditions,  and  input/output  conversion 
are  performed  by  the  common  routines  of  the  system.   There  are,  of  course,  other 
versions  of  the  Translator  which  have  had  the  necessary  routines  added  as  a 
package  so  that  use  can  proceed  independently  of  PORTHOS.   Since  the  PORTHOS 
system  is  well  documented  in  a  user's  manual,  the  details  will  not  be  repeated 
here.   Instead,  a  description  of  those  requirements  imposed  by  PORTHOS  which 
are  most  evident  to  the  user  will  be  discussed. 

The  709^/1^01  computer  system  at  the  Digital  Computer  Laboratory, 
University  of  Illinois,  is  operated  on  an  open-shop  programming  and  closed- 
shop  operating  basis.   This  means  that  the  user  must  submit  his  program, 
punched  into  cards,  to  the  Digital  Computer  Laboratory  for  running  and  cannot 
have  direct  access  to  the  computers.   The  programs  submitted  are  arranged  in 
"batches"  of  many  jobs,  placed  on  magnetic  tape  by  the  lUoi  computers,  and 
processed  one  after  the  other  by  the  709^  •   Every  job  must,  then,  be  appro- 
priately identified  with  a  program  card.   This  card  is  described  in  the 
PORTHOS  user's  manual.   Since  the  system  must  be  informed  what  processing  is  to 
be  carried  out  on  the  job  following  the  program  card,  $  control  cards  must  be 
placed  before  that  job.   These  cards  are  completely  covered  in  the  PORTHOS 
user's  manual.   The  minimum  control  cards  for  translation  and  execution  of  an 
ALGOL  program  are 

$  ALG0L 

$  G0 
and  if  the  program  contains  data,  then  the  data  must  be  preceded  by  a 

$  DATA 
card.  The  inclusion  in  a  job  of  column  binary  cards  is  covered  in  the  section 
in  this  manual  on  Procedures. 

Because  of  the  construction  of  the  Translator,  certain  of  the  $  control 
cards  described  in  the  PORTHOS  manual  are  meaningless  when  submitted  with  an 
ALGOL  program.   These  are 
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$  SCATRE 

$  MAD 

$  FORTRAN 

$  PRINT  0BJECT 
The  first  three  are  obviously  meaningless  because  they  call  other  translators; 
the  last  is  meaningless  because  during  the  translation  process,  ALGOL  programs 
do  not  go  through  a  symbolic  object  code  phase. 

A  discussion  of  the  use  of  the  system  library  routines  appears  in  the 
section  of  this  manual  on  Procedures. 
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Procedure  for  Submitting  an  ALGOL  Job. 

Introduction. 

This  section  concerns  the  details  of  actually  preparing  an  ALGOL 
source  program  for  entry  into  the  computer.   Of  necessity,  the  source  program  must 
he  punched  into  cards,  appropriately  identified,  accompanied  by  certain  PORTHOS 
control  cards  (See  Section  5.),  and  properly  submitted  at  the  dispatching  room, 
110A  ERL.   The  subjects  discussed  in  the  following  sections  are  more  fully  developed 
in  the  PORTHOS  User's  Manual,  but  the  essential  details  are  covered  here. 

The  sole  object  of  this  section  is  to  make  this  ALGOL  Manual  self- 
contained,  in  that  if  a  potential  user  knows  how  to  program  in  ALGOL,  then  all 
the  information  he  needs  to  put  an  ALGOL  job  on  the  computer  is  available  to 
him  in  this  manual.   If  he  requires  more  than  this  minimum  body  of  information 
concerning  non-ALGOL  portions  of  the  operating  system,  subroutine  library,  etc., 
then  he  will  have  to  look  to  other  publications.   The  procedures  outlined  in  this 
chapter  may  be  changed  in  time,  so  the  reader  is  cautioned  to  assure  that  he  has  the 
latest  version. 
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Coding  and  Keypunching . 

Assuming  that  the  user  has  completed  the  planning  of  his  program, 
the  next  step  is  to  place  the  ALGOL  statements  on  a  coding  sheet  so  as  to 
facilitate  keypunching.   We  assume  that  BCD  cards  are  used  as  the  primary 
input  medium  of  the  source  program.   Hardware  ALGOL  is  a  one -dimensional 
continuum,  so  placement  of  the  statements  on  cards  has  no  meaning  of  any 
kind.   That  is, 

'BEGIN'  'REAL'  V0LUME,  PRESSURE,  TEMPERATURE.,  'INT 
EGER'  NUMBER,  EXPERIMENT,  DATE.,  'REAL'  'PROCEDURE' 
INTEGRATION  (ALPHA,  BETA,  GAMMA)., 
is  as  acceptable  and  meaningful  as 
'BEGIN' 

'REAL'  V0LUME,  PRESSURE,  TEMPERATURE., 
'INTEGER'  NUMBER,  EXPERIMENT,  DATE., 
'REAL'  'PROCEDURE' 

INTEGRATION  (ALPHA,  BETA,  GAMMA)., 
even  though  the  second  version  is  somewhat  more  readable  for  humans. 
Except  in  strings,  blanks  have  no  meaning  in  ALGOL,  so  blanks  can  be 
inserted  at  will,  to  make  it  easier  to  human  readers  to  read  and  under- 
stand an  ALGOL  program.   Since  placement  of  the  ALGOL  statements  on  cards 
is  strictly  a  matter  of  personal  preference,  there  are  no  special  ALGOL 
coding  forms.   The  only  restriction  to  placement  on  cards  is  that  columns 
73-80  should  not  contain  ALGOL  symbols;  these  columns  are  used  strictly 
for  identification,  and  are  not  read  by  the  Translator.  Use  of  this 
field  for  identification  is  optional  with  the  user;  they  may  be  left 
blank  if  so  desired.   It  is,  however,  suggested  that  some  numbering 
system  be  used  in  this  field  to  assure  that  the  cards  are  in  their 
proper  order. 

For  examples  of  ALGOL  programs  that  have  been  translated  and 
executed,  and  whose  structure  is  apparent  to  the  human  reader,  see  Appendix 
D  of  this  manual.   In  order  to  make  the  various  parts  of  the  programs  more 
easily  understood  by  human  readers,  liberal  use  has  been  made  of  the 
comment  word  symbol  and  comments  after  the  final  end  of  the  programs.   These 
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ALGOL  comments  have  nothing  to  do  with  system  $$  comment  cards,  which  are 
addressed  to  the  computer  operator  (see  PORTHOS  Manual). 
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6.3-   System  Control  Cards  for  ALGOL. 

The  minimum  PORTHOS  system  control  cards  required  for  translation 
and  execution  of  an  ALGOL  source  program  with  data  cards  are 

$  ALG0L 

$  G0 

$  DATA 
Because  of  the  unique  dynamic  storage  feature  of  ALGOL,  the  other  applicable 
PORTHOS  system  control  cards  do  not  cause  identical  action  with  ALGOL  as 
with  other  programming  systems.   A  full  description  of  these  control  cards 
and  their  action  in  general  appears  in  the  PORTHOS  Manual"  their  unique 
actions  with  ALGOL  are  described  in  Section  5- 

The  control  cards  $  ALG0L  and  $  G0  respectively  cause  translation 
of  the  ALGOL  source  program  into  machine  code  and  execution  of  the  machine 
code  program. 
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6.h.      Data  Cards 


The  control  card  $  DATA  need  be  present  only  if  data  cards  for 
the  ALGOL  program  are  present.   Of  itself,   the  $  DATA  card  does  not  cause 
any  activity  on  the  part  of  the  monitor  or  the  Translator  hut  simply  states 
that  the  cards  which  follow  contain  data  intended  to  he  read  by  the  immedi- 
ately preceding  ALGOL  program. 

The  data  cards  themselves  should  be  punched  in  accordance  with 
the  format  procedure  call  which  describes  them  (see  section  3-^-)-   In  "the 
event  that  the  data  card  format  is  not  identical  to  that  specified  by  the 
applicable  format  call,  then  the  data  may  be  read,  with  the  actual  format 
overriding  the  specified  format.   For  fuller  details,  see  the  PORTHOS  user's 
manual . 
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6.5«    Binary  Cards  and  ALGOL. 

Generally  speaking,  there  are  two  distinct  uses  to  which  binary 
cards  are  put:   for  entire  compiled  (translated)  programs  and  for 
precompiled  (preassembled)  subroutines. 

If  a  user  gets,  by  use  of  the  system  control  card  $  PUNCH  OBJECT, 
a  binary  deck  of  his  translated  object  program,  then  he  may  use  this  binary 
deck  whenever  he  chooses  without  further  reference  to  ALGOL. 

If,  on  the  other  hand,  a  user  has  a  subroutine  on  binary  cards, 
no  matter  where  he  got  it,  he  must  satisfy  the  requirements  for  the  use  of 
the  contents  of  the  binary  deck  as  a  code  procedure.   These  requirements 
are  described  in  detail  in  section  9- 
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6.6.        Library  Routines  on  Tape  or  Cards. 

The  subroutine  library  is  at  the  disposal  of  the  ALGOL  user 
through  the  code  procedure  declaration.   The  user  has  to  make  sure,  however, 
that  the  proper  linkage  between  an  Algol  program  and  the  used  library  subroutine 
is  provided.   This  can  be  done  e.g.  by  a  SCATRE  subroutine  which  makes  up 
the  right  linkage  and  then  calls  the  library  subroutines,   For  details  see 
section  9* 
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6.7.   Typical  Deck  Makeup. 


Date :   6/1/614- 
Section: 6.7. 
Page:    1  Of  1 
Change :  1 


7.    Errors  and  Error  Messages. 

7.1.   Introduction. 

The  most  simple -minded  translating  programs  simply  reject  a  source 
program  when  an  error  in  syntax  has  been  found.   Such  a  summary  dismissal 
of  an  erroneous  source  program  can  "be  a  frustrating  and  time-consuming 
experience  for  the  user,  so  more  sophisticated  translators  now  perform 
extensive  syntax  analysis  during  translation  of  the  source  program,  and 
attempt  to  "fix"  the  source  program  where  errors  are  detected  and 
continue  translation.   Obviously,  with  a  language  such  as  ALGOL  wherein 
redundancy  is  purposely  minimized,  only  minor  errors  can  he  repaired,  and  a 
truly  gross  error  can  only  result  in  abortion  of  the  translating  attempt. 
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7*2.    Classes  of  Errors  and  Their  Detection. 
7»2«1,  Syntax  Error. 

Suppose 
if  (Boolean  Expression)  then  Expression  E  ;  else  Expression  E 
appears  in  a  source  program;  the  semicolon  after  E  obviously  is  out  of 
place,  and  a  well-designed  translator  can  recognize  this,  disregard 
the  semi-colon,  and  translate  the  statement  correctly-   On  the  other  hand, 
if  the  programmer  omits  every  end  in  a  multiple -block  program,  the 
translator  normally  has  insufficient  information  on  which  to  base  an 
attempt  at  inserting  the  missing  end's,  and  so  must  abandon  its  attempt 
at  translation.   That  is,  a  sequence  of  begin 's 

begin 

begin 

begin 

begin 

begin 
might  be  interpreted  in  several  ways  as  far  as  block  structure  is 
concerned. 
Consider 

begin  begin  begin 

begin   end  begin  begin 

begin   end  begin   end  begin   end 

begin   end  begin   end  begin   end 

begin   end  begin   end  end 

end  end  begin   _jjm 

end  M  i 

These  are  just  a  few  of  the  several  structures  five  begin 's  can  imply; 
no  computer  program  can  be  expected  to  pick  the  correct  one  in  a  given  case, 

Perhaps  the  foregoing  example  is  far-fetched.   Consider  the  case 
where  'BEGIN'  is  written  BEGIN.   BEGIN  is  then  nothing  more  than  another 
identifier,  and  has  lost  its  identity  as  a  basic  ALGOL  symbol.   Presumably, 
under  such  circumstances  an  'END'  will  appear,  and  have  no  'BEGIN'  to  be 
matched  with.   It  is  not  reasonable  to  expect  such  errors  to  be  repairable, 
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since  the  identifier  BEGIN  could  legitimately  be  used  in  the  same  program 
in  which  the  mistake  might  appear. 
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7.2.2.  Semantic  Error. 

A  second  type  of  error  likely  to  occur,  apart  from  syntactical  or 
"grammatical"  errors,  is  the  case  in  which  the  program  simply  does  not  do 
what  the  user  had  intended.   The  source  statements  may  very  well  constitute 
a  valid  ALGOL  program,  the  Translator  may  translate  it  correctly,  the  data 
may  be  perfectly  acceptable --hut  the  results  are  not  those  expected. 

Such  an  error  condition  can  never  he  detected  by  anyone  or  any 
machine  unless  he  or  it  knows  what  the  programmer  meant'  to  tell  the 
computer  to  do.  At  present  there  is  no  alternative  to  a  careful  examination 
of  the  structure  of  the  source  program  by  the  user  or  programmer.   In  some 
programming  systems,  a  trace  mode  is  provided  to  aid  the  user  in  following 
through  the  action  of  the  program.   There  is  no  such  special  device  available 
for  ALGOL  users,  but  a  liberal  use  of  print  calls  at  appropriate  points 
in  the  program  will  accomplish  the  same  end  result. 
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7.2. 3 «   Errors  Detectable  Only  During  Execution. 

A  third  type  of  error  which  from  time  to  time  appears  is 
a  pathological  condition  during  execution  after  a  successful  translation. 
This  can  result  from  two  somewhat  related  occurrences.   The  first  cause 
could  he  that  the  data  introduced  into  the  machine  were  not  within  the 
domain  of  the  data  for  which  the  program  was  written.   The  second  is  that, 
although  the  syntax  of  the  ALGOL  source  program  is  correct,  the  semantics 
of  the  program  is  not;  that  is,  the  statements  are  grammatically  correct 
but  under  certain  circumstances  the  program  can  enter  a  loop  and  never  come 
out  of  it.   An  example: 

begin  real  a; 

a:  =  0 
again:  a:  =  a  +  1; 
go  to  again;  print  (a) 

end 
Syntactically,  this  is  a  perfectly  good  ALGOL  program,  but  it  will  run 
indefinitely;  it  can  never  reach  the  print  procedure  call  because  the 
go  to  statement  will  always  send  control  back  to  statement  "again".   Hence, 
this  type  of  error  will  show  up  only  during  actual  operation  of  the  object 
program.   This  type  of  error  cannot,  then,  be  detected  at  translation  time, 
and  must  be  dealt  with  by  a  "post  mortem"  on  the  "dead"  object  program. 

Note  that  there  is  only  a  fine  distinction  between  this  last  error 
type  and  that  discussed  in  Section  7*2.2.   The  essential  difference  lies  in 
the  fact  that  the  first  need  not  stop  execution  of  the  program,  whereas  the 
second  will  either  stop  execution  or  make  the  computer  perform  in  such  a 
peculiar  manner  (as  an  indefinite  loop)  as  to  require  operator  intervention. 
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rJ.2.k.        Machine  and/or  Translator  Errors. 

Certain  error  conditions  are  not  necessarily  due  to  negligence 
on  the  part  of  the  programmer.,  but  rather  to  limitations  inherent  in  the 
Translator.   The  most  obvious  limitation  is  that  on  the  length  of  program, 
or  portion  thereof,  imposed  by  the  size  of  the  computer's  core  memory,  which 
is,  of  course,  not  infinitely  large.   Such  error  conditions  can  frequently 
be  corrected  by  minor  alterations  to  the  source  program.   If  changes  are 
impossible  or  impractical,  then  a  talk  with  the  programmer  charged  with  main- 
tenance of  the  Translator  is  in  order. 

Finally,  it  must  be  pointed  out  that  computers  are  only  machines 
and  are  not  infallible.   They  make  mistakes.   To  be  sure,  the  incidence  of 
computer  errors  is  low  when  compared  to  that  of  humans,  and  the  design  of 
the  machines  is  usually  such  that  errors  of  this  nature  are  detected,  but 
nevertheless,  the  user  should  expect,  from  time  to  time,  to  find  that  his 
program  did  not  run  and  that  the  failure  was  actually  due  to  machine  trouble. 
The  remedy  is  simple:  report  a  suspected  machine  error  to  the  consultant  on 
duty  and  try  to  run  the  program  again  after  the  computer  has  been  checked 
and  verified  as  accurate.  A  tolerant  attitude  toward  machine  errors  will 
make  life  more  pleasant  for  the  computer  user. 
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Error  Messages. 

The  various  error  types  discussed  in  the  preceding  sections  "which 
are  detectable  by  this  Translator  are  reported  to  the  user  by  means  of 
printed  error  messages,  along  with  whatever  other  printed  information  he 
has  requested  (see  Section  5-)- 

There  may  "be,  in  addition  to  ALGOL  error  messages,  system  error 
messages;  the  latter  are  not  discussed  here,  and  the  user  is  directed  to 
the  PORTHOS  User's  Manual  for  explanation  of  those  error  messages. 

The  Translator  numbers  consecutively  every  card  image 
of  an  ALGOL  source  program,  and  the  output  from  every  program  submission 
contains  these  numbered  card  images,  otherwise  exactly  as  they  were  punched 
into  the  cards.   The  numbered  card  images  are  particularly  helpful  in 
analyzing  programming  errors  when  they  occur. 

Following  are  the  error  messages  generated  by  the  Translator.  The 
symbol  . . .  indicates  that  the  Translator  inserts  a  variable  name  or  a  number 
unique  to  the  program  being  translated.   Figures 7*1  and  7-2  show  typical 
output  for  erroneous  programs. 
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SUCCESSFUL  COMPILATION,  BUT  PROGRAM  IS  TOO  LARGE  TO  FIT  IN  MEMORY. 

IDENTIFIER... WITH  KIND... IS  NOT  DESIGNATIONAL. 

THE  SWITCH. .. IS  DECLARED  TWICE. 

THE  STRING  WAS  USED  BEFORE  WITH  ANOTHER  KIND. 

DECLARATION  AFTER  THE  STATEMENT  OR  LABEL. 

PROCEDURE --FORMAL  PARAMETER  PART. . .WAS  USED  BEFORE  WITH  A  DIFFERENT  NUMBER  OF 

SUBSCRIPTS. 
TYPE  OF  LEFT  SIDE  OF  .=  DIFFERS  FROM  RIGHT  SIDE. 
ERROR  IN  ALGOL  COMPILER. 
...FOLLOWING  A  DESIGNATIONAL  'THEN' 
. . .FOLLOWING  AN  ARITHMETIC  'THEN1 
... FOLLOWING  A  STATEMENT  'THEN' 

THE  EXPRESSION  BETWEEN  'THEN'  AND  'ELSE'  SHOULD  BE  BOOLEAN. 
...FOLLOWING  A  DESIGNATIONAL  'THEN' 

THE  EXPRESSION  BETWEEN  'THEN'  AND  'ELSE'  SHOULD  BE  DESIGNATIONAL. 
THE  EXPRESSION  BETWEEN  'THEN'  AND  'ELSE'  SHOULD  BE  ARITHMETIC. 
..FOLLOWING  A  NON-ARITHMETIC  'ELSE'. 
..FOLLOWING  A  STATEMENT  'ELSE'. 
UNDETERMINED  EXPRESSION  IS  FOLLOWED  BY.,. 
..FOLLOWING  A  'THEN'  OF  A  BOOLEAN  OR  ARITHMETIC  EXPRESSION. 
..FOLLOWING  A  'THEN'  OF  AN  UNDETERMINED  EXPRESSION.   (WHICH  CAN  ONLY  OCCUR  ON 

AN  ACTUAL  PARAMETER  POSITION). 
..FOLLOWING  A  'THEN'  OF  A  BOOLEAN  EXPRESSION. 
..FOLLOWING  A  'THEN'  OF  A  CONDITIONAL  EXPRESSION. 
LABEL... IS  DECLARED  TWICE. 

THE  EXPRESSION  BETWEEN  'IF*  AND  'THEN'  IS  NOT  BOOLEAN. 
FOR  LIST  IS  WRONG.   NO.  OF  'STEP'S  IS  DIFFERENT  FROM  NO.  OF  'UNTIL' S. 
FOR  LIST  IS  WRONG.   'WHILE'  IS  SYNTACTICALLY  INCORRECT. 
FOR  LIST  IS  WRONG.   'UNTIL'  IS  SYNTACTICALLY  INCORRECT. 

ARRAY  DECLARATION. ..WAS  USED  BEFORE  WITH  A  DIFFERENT  NO.  OF  SUBSCRIPTS. 
ARRAY  DECLARATION... WAS  USED  BEFORE  WITH  TYPE  BOOLEAN. 
ARRAY  DECLARATION... WAS  USED  BEFORE  WITH  TYPE  INTEGER. 
ARRAY  DECLARATION. ..WAS  USED  BEFORE  WITH  TYPE  'REAL'. 
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ARRAY  DECLARATION... WAS  USED  BEFORE  WITH  A  DIFFERENT  KIND. 
FOR  LIST  IS  WRONG.   TOO  MANY  'STEP'  DELIMITERS. 
ARRAY  DECLARATION. . .AN  UPPER  OR  LOWER  BOUND  HAS  BEEN  LEFT  OUT. 
DIFFERENT  TYPES  IN  THE  LEFT  PART  LIST  OF  THIS  ASSIGNMENT  STATEMENT. 
IDENTIFIER.. .WITH  KIND. . .WAS  USED  BEFORE  WITH  A  DIFFERENT  NO.  OF  SUBSCRIPTS. 
ARRAY  DECLARATION.   BOUND  PAIR  SEPARATORS  NOT  RIGHT. 
A  SUB -EXPRESS ION  IN  AN  EXPRESSION  SHOULD  BE  BOOLEAN. 
A  SUB -EXPRESS ION  IN  AN  EXPRESSION  SHOULD  BE  ARITHMETIC. 
IDENTIFIER.. .DECLARED  AS . . .WAS  USED  BEFORE  WITH  A  DIFFERENT  KIND. 
A  SEQUENCE  OF  DIGITS  IS  FOLLOWED  BY  THE  LETTER . . . 

-ILLEGAL  CONSTANT.   AN  INTEGER  IT  IS  TOO  LARGE.   THE  CHARACTER  FOLLOWING  IS... 
PROGRAM  HAS  TOO  MANY  FOR  LOOPS. 

ILLEGAL  CONSTANT.   IT  IS  TOO' LARGE.   THE  CHARACTER  FOLLOWING  IS... 
ILLEGAL  CONSTANT .   IT  IS  NO  ALGOL  NO .   THE  CHARACTER  FOLLOWING  IS .  .  . 
ILLEGAL  CONSTANT .   AN  EXPONENT  IT  IS  TOO  LARGE .   THE  CHARACTER  FOLLOWING  IS . . . 
ILLEGAL  CONSTANT.   NO  DIGIT  AFTER  EXPONENT  SIGN.   THE  CHARACTER  FOLLOWING  IS... 
ILLEGAL  CONSTANT .   TWO  PERIODS .   THE  CHARACTER  FOLLOWING  IS . . . 
. . . FOLLOWED  BY  A  SEQUENCE  OF  DIGITS  FOLLOWED  BY . . . 
IDENTIFIER. . . IS  DECLARED  TWICE. 

IDENTIFIER...  IS  A  FORMAL  PARAMETER  IN  A  SURROUNDING  BLOCK. 
IDENTIFIER ...  IS  NOT  FUNCTION  NAME  IN  ACTUAL  BLOCK. 
IDENTIFIER.  .  .IS  A  FORMAL  PARAMETER  IN  THIS  BLOCK. 
IDENTIFIER. . .IS  NOT  FORMAL  PARAMETER  IN  ACTUAL  BLOCK. 
IDENTIFIER ...  IS  NOT  IN  A  SURROUNDING  BLOCK. 
IDENTIFIER. ..IS  NOT  ARITHMETIC  VARIABLE. 
IDENTIFIER .,. IS  NOT  SIMPLE  OR  FUNCTION  NAME. 
IDENTIFIER. . .IS  NOT  ARRAY  OR  FUNCTION  WITH  PARAMETERS. 
IDENTIFIER. . .IS  NOT  DECLARED  OR  IS  UNDEFINED  AT  THIS  POINT. 
IDENTIFIER  ...  IS  NOT  BOOLEAN  ARRAY . 

IDENTIFIER.. .IS  NOT  BOOLEAN  FUNCTION  WITH  PARAMETERS  OR  ARRAY. 
IDENTIFIER ... IS  NOT  LABEL . 
IDENTIFIER.. .IS  NOT  SWITCH. 
IDENTIFIER  ...  IS  NOT  ARRAY . 
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TYPE  OF..  .SHOULD  BE  BOOLEAN.   TYPE  OF  THE  EXPRESSION  BEFORE ...  SHOULD  BE 

BOOLEAN. 
IDENTIFIER . . . IS  NOT  SIMPLE  OR  FUNCTION  WITH  PARAMETERS. 

TYPE  OF... SHOULD  BE  INTEGER  TYPE  OF  THE  EXPRESSION  BEFORE ...  SHOULD  BE  INTEGER. 
TYPE  OF... SHOULD  BE  ARITHMETIC  TYPE  OF  THE  EXPRESSION  BEFORE ...  SHOULD  BE 

ARITHMETIC . 
IDENTIFIER. .. IS  NOT  ARRAY  OR  PROCEDURE  WITH  PARAMETERS. 
IDENTIFIER. . .IS  NOT  PROCEDURE  WITHOUT  PARAMETERS. 
IDENTIFIER. .. IS  NOT  PROCEDURE  WITH  PARAMETERS. 
FORMAL  PARAMETER. ..CANNOT  APPEAR  ON  LEFT  SIDE  OF  .=  SIGN. 
IDENTIFIER. .. IS  NO  ALGOL  IDENTIFIER.   ERROR  IN  LGL  ROUTINE... 
FORMAL  PAR.  CORRESP.  TO  ACTUAL  PAR... CANNOT  APPEAR  ON  LEFT  SIDE  OF  .=  SIGN. 
CALL  OF  FUNCTION  OR  PROCEDURE.   ACT.  PAR.   (...)  NOT  COMPATIBLE  WITH  FORMAL 

PAR.  (...)• 
CALL  OF  FUNCTION  OR  PROCEDURE.   THE  NUMBER  OF  PARAMETERS  IN. . .WITH  KIND... 

DIFFERS  FROM  PREVIOUS  USE. 
DECLARATION  OF  FUNCTION  OR  PROCEDURE.   PARAMETER  DELIMITER  IS  WRONG— 

(COLON  MISSING). 
DECLARATION  OF  FUNCTION  OR  PROCEDURE.   PARAMETER  DELIMITER  IS  WRONG. 

(TWO  COLONS). 
DECLARATION  OF  FUNCTION  OR  PROCEDURE.   PARAMETER  DELIMITER  IS  WRONG— 

(LETTER  FOLLOWING  A  COLON). 
DECLARATION  OF  FUNCTION  OR  PROCEDURE.   SEMICOLON  MISSING  AFTER  'CODE'. 
DECLARATION  OF  FUNCTION  OR  PROCEDURE.   TYPE  OF... WITH  KIND. . .DIFFERS  FROM 

PREVIOUS  USE. 
DECLARATION  OF  FUNCTION  OR  PROCEDURE. . .WITH  KIND. . .DIFFERS  FROM  PREVIOUS  USE. 
DECLARATION  OF  FUNCTION  OR  PROCEDURE,   THE  NO.  OF  PARAMETERS  IN.. .WITH  KIND... 

DIFFERS  FROM  PREVIOUS  USE. 
DECLARATION  OF  FUNCTION  OR  PROCEDURE.   IDENTIFIER. . .WAS  USED  BEFORE  WITH  A 

DIFFERENT  KIND. 
CALL  OF  FUNCTION  OR  PROCEDURE.   ACT.  PAR.  (...)  NOT  COMPATIBLE  WITH  FORMAL 

PAR.  (...). 
THERE  ARE . . . MORE  ' BEGIN ' S  THAN  ' END  » S. 
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THERE  ARE  MORE  'END'S  THAN  'BEGIN 'S. 

CHAR.  ...APPEARED  IN  COMMENT  AFTER  'END'.   PERHAPS  A  •  IS  MISSING. 

TRANSLATION  NOT  STOPPED. 
IDENTIFIER. ..WAS  USED  TWICE  WITH  THE  SAME  WRONG  TYPE  OR  KIND.   TO  SAVE  SPACE 

SUCH  ERRORS  ARE  ONLY  PRINTED  THE  FIRST  TIME  THEY  OCCUR.   CHECK 

PROGRAM  CAREFULLY. 
NO  'FINIS'  AT  END  OF  PROGRAM. 
THE  LONG  IDENTIFIER  IS  TOO  LONG. 

SYNTAX  CHECKER  STOPPED.   PROGRAM  HAS  TOO  MANY  UNDECLARED  IDENTIFIERS. 
THE  KIND  OF  FORMAL  PARAMETER. . .OF  PROCEDURE  OR  FUNCTION. . .CANNOT  BE  DETERMINED 

BY  COMPILER.   IT  WILL  BE  MADE  REAL  SIMPLE. 
CARD  NO.  ...SYNTACTICAL  ERRORS  IN  ALGOL  PROGRAM. 
PROGRAM  HAS  TOO  MANY  LONG  IDENTIFIERS.   (OVER  6  CHARACTERS). 
THE  STRING  BEGINNING  ON  CARD  NO.  . . .HAS  NO  END  QUOTE. 
THE  TOTAL  NUMBER  OF  CHARACTERS  IN  ALL  LONG  IDENTIFIERS  IS  TOO  BIG.   SHORTEN 

SOME  IDENTIFIERS.  '•■ 

! 

THE  STATE  CELLAR  HAS  OVERFLOWED.   TAKE  TO  COMPILER  SECTION. 

THE  OPEN  LOOP  ADMISSIBLE  VARIABLE  LIST  HAS  OVERFLOWED.   TAKE  TO  COMPILER  SECTION.; 

THE  SUBSCRIPT  LINEARITY  CALCULATION  CELLAR  HAS  OVERFLOWED.   TAKE  TO  COMPILER 

SECTION. 
PROGRAM  HAS  TOO  MANY  DIFFERENT  CONSTANTS  AND  STRINGS. 
PROGRAM  HAS  TOO  M&NY  IDENTIFIERS.   PLEASE  USE  CODE  PROCEDURES. 
PASS  1.   CELLAR  OVERFLOW. 
PASS  1.   LONG  IDENTIFIER  LIST  OVERFLOW. 
PASS  1.   GENERAL  IDENTIFIER  LIST  OVERFLOW. 
PBLDS  CELLAR  OVERFLOW.   TAKE  TO  COMPILER  SECTION. 
OPERAND  CELLAR  OVERFLOW.   TAKE  TO  COMPILER  SECTION. 
PASS  3  ERROR.   TAKE  TO  COMPILER  SECTION. 

INPUT -OUTPUT  PROCEDURE  IS  USED  AS  ACT.  PAR.  (PASS  3  ERROR.) 
PROGRAM  IS  TOO  BIG  TO  FIT  IN  MEMORY.   NO  EXECUTION. 
MISSING  )  AT  THE  END  OF  THE  PROCEDURE  CALL. 
A ... IS  ENDED  BY  A  ;  BUT  IS  NOT  COMPLETED . 
ILLEGAL  OCCURRENCE  OF  CHAR.  . . . IN  OR  AFTER. . . 
ILLEGAL  ALGOL  CHARACTER. 


ILLEGAL  OCCURRENCE  OF  CHAR.  ...IN  OR  AFTER... IF  AN  'ELSE'  FOLLOWS,  IT  WILL 

BE  ASSUMED  TO  BELONG  TO  THIS  'IF'. 
ILLEGAL  OCCURRENCE  OF  CHAR.  ...IN  OR  AFTER ... ILLEGAL  OCCURRENCE  OF  CHAR.  ... 

AFTER  IDENT.,  NUMBER  OR  ARRAY  ELEMENT.   ILLEGAL  OCCURRENCE  OF  CHAR, 

.  .  .AFTER  A  STATEMENT  OR  EXPRESSION. 


ILLEGAL  OCCURRENCE  OF  CHAR 
ILLEGAL  OCCURRENCE  OF  CHAR 
ILLEGAL  OCCURRENCE  OF  CHAR 
UNDEFINED  DELIMITER. 
ILLEGAL  OCCURRENCE  OF  CHAR 


.IN  FORMAL  PAR.  PART. 

.IN  ACTUAL  OR  FORMAL  PAR.  POSITION. 

.AT  BEGINNING  OF  A  PROCEDURE  BODY. 


.IN  OR  AFTER.  .. 'THEN*  IS  MISSING. 

MACHINE  ERROR.   TAKE  TO  COMPILER  SECTION. 

TOO  MANY  'END'S.   A  'BEGIN'  HAS  BEEN  INSERTED  BEFORE  A  CHAR.  ... 

'IF'  CORRESP.  TO... IS  MISSING. 

ILLEGAL  OCCURRENCE  OF  CHAR.  ...IT  SHOULD  ONLY  BE  IN  A  SPECIFICATION  PART. 

ILLEGAL  OCCURRENCE  OF  CHAR.  ...COMPILER  ASSUMES  IT  TO  BE  A  ). 

MISSING  )  BEFORE  CHAR.  ... 

ILLEGAL  OCCURRENCE  OF  CHAR.  ...COMPILER  ASSUMES  IT  TO  BE  A  ). 

NO  CLOSING  BRACKET  FOR... 

ILLEGAL  OCCURRENCE  OF  A  STRING. 

NO  MATCHING  FOR  LIST  FOR  THE  CHAR.  ... 

EITHER  THE  'ELSE'  HAS  NO  MATCHING  'IF'  AND  'THEN*  OR  THE  BLOCK  FOLLOWING  THE 
'THEN'  IS  NOT  YET  CLOSED  BY  'END'. 

ILLEGAL  OCCURRENCE  OF  CHAR .  ...  IN  OR  AFTER ...  IT  HAS  BEEN  REPLACED  BY  A  ( . 

.  IN  OR  AFTER ...  IT  HAS  BEEN  REPLACED  BY  A  J  , 
.IN  OR  AFTER... IT  HAS  BEEN  DROPPED  FROM  THE'-1 


ILLEGAL  OCCURRENCE  OF  CHAR. 
ILLEGAL  OCCURRENCE  OF  CHAR. 

SOURCE  PROGRAM. 
ILLEGAL  OCCURRENCE  OF  CHAR. 


.  .  IN  OR  AFTER .  .  .  ILLEGAL  OCCURRENCE  OF  CHAR  .  .  .  , 
AFTER  IDENT.,  NUMBER  OR  ARRAY  ELEMENT  WHICH  IS  IN  OR  AFTER  A... 
ILLEGAL  OCCURRENCE  OF  CHAR.  ...AFTER  A  STATEMENT  OR  EXPRESSION. 

ILLEGAL  OCCURRENCE  OF  CHAR.  ...ONLY  A  ;  OR  "END*  IS  EXPECTED. 

ILLEGAL  OCCURRENCE  OF  CHAR.  . . . IN  AN  IDENTIFIER  OR  IN  A  PLACE  WHERE  ONLY  AN 
ID.  WAS  EXP. 

THE  FOLLOWING  TOLERATED  CHARS.  WERE  USED  IN  PROGRAM:  ... 
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A  Feature  of  ALGOL  Not  Implemented,  own  » 

The  type  declaration  own  has  not  "been  implemented  in  the  Translator 
and  will,  therefore,  be  ignored  and  passed  over  as  if  it  were  not  present 
if  it  appears  in  a  source  program. 

No  plans  exist  at  present  for  the  implementation  of  this  ALGOL 
feature.   However,  a  judicious  use  of  global  variables  should  make  it 
possible  for  the  careful  programmer  to  accomplish  the  same  thing  as  would 
be  accomplished  by  the  use  of  own.   That  is,  by  keeping  :'own  variables :v 
global,  instead  of  local  to  certain  blocks,  they  remain  defined  throughout 
execution  of  the  program. 
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9.1.   Introduction 

This  section  indicates  the  form  of  an  object  program  for  an  ALGOL 
program  translated  by  the  ALC  OR -ILLINOIS  7090/9^-  Compiler. 

It  is  not  intended  for  beginning  programmers,  but  for  those  who  are 
experienced  in  the  7090/9^-  machine  language  and  have  a  reasonable  knowledge  of 
ALGOL.   In  order  to  keep  the  section  to  a  reasonable  size,  explanations  are  not 
always  given,  and  not  always  in  full  detail;  the  object  program  produced  for  any 
given  component  of  ALGOL  should  be  enough  to  understand  what  happens.   Also  no 
indication  is  given  as  to  a  proof  of  why  something  works  -  this  can  be  seen  from 
the  object  program. 

This  is  not  a  theoretical  work,  but  a  tection  indicating  how  ALGOL  is 
implemented  on  a  certain  machine.   Nevertheless,  it  could  be  used  as  a  model  for 
any  computing  machine  with  somewhat  similar  instructions. 

To  help  in  reading  this  section,  section  9.19  gives  a  list  of  all 
definitions,  or  a  reference  to  the  definitions. 
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9.2.   Conventions 

1 )  HILOC 

2)  <B> 


J>; 

A(or  P,T,D) 

V 

<A>-^B 

5) 

>A< 

6) 

'B'A(or  P,T,D) 

7)  AC,MQ,IND 

8)  XRi 

9)  AC]_ 

10)  AUXILIARY 

11 )  AUX 

12)  SIFV 

13)  Code  procedure 


is  the  name  of  the  highest  location  an 

object  program  can  use  during  execution 

contents  of  location  B 

contents  of  location  B  address  (prefix, 

tag,  or  decrement) 

contents  of  location  A  is  put  into  B 

the  address  of  A 

location  B  address  (prefix,  tag,  or 

decrement) 

accumulator,  multiplier  quotient, 

indicators 

index  register  i 

logical  AC  (p,l. . .35) 

general  name  for  a  temporary  storage 

location 

general  name  for  a  temporary  storage 

location 

a  simple  integer  variable,  which,  if  a 

formal  parameter,  is  VALUE 

is  a  procedure  whose  body  does  not 

appear  in  the  program  being  compiled, 

but  is  independent  of  it.   One  declares 

such  a  procedure  as  usual,  but  replaces 

the  procedure  body  by  the  delimiter 

"'CODE'". 
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9.3-   Representation  of  INTEGER ,  REAL,  BOOLEAN  and  STRING  values 

The  value  of  INTEGER  declared  variables  are  represented  by  floating 
point  numbers,  as  are  the  values  of  REAL  declared  variables. 
FALSE  and  TRUE  are  represented  by 


OCT  o 


OCT  TTT777777T77 


respectively. 


Strings  are  written  six  characters  to  a  word,  using  ascending 
locations.  After  the  string  the  character  (77)o  i-s  added.   The  last  word 
is  then  filled  up  with  the  character  (77 )o- 
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9.k.      Storage  Allocation 
9A.1.   Transfer  vectors 

As  in  FORTRAN,  all  names  of  procedures  and  functions  not  appearing 
directly  in  this  object  program  (standard  functions,  l/O  procedures,  code 
procedures)  are  collected  and  put  at  the  "beginning  of  the  object  program. 
The  loader  then  changes  these  names  to  TTR  subroutine  when  the  program  is 
loaded  for  execution. 
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9.^.2.   Constants 

All  constants  and  constant  strings  are  collected  and  stored  immediately 
"behind  the  instructions  of  the  object  program. 
The  5  locations 


FALSE 

OCT 

o 

TRUE 

OCT 

777777777777 

.ZER 

OCT 

233000000000 

.ONE 

OCT 

1 

.EXTRA 

PZE 

appear  in  every  object  program  as  the  first  5  locations  in  the  constant  list. 
Location  .EXTRA  does  not  contain  a  constant,  but  is  used  as  an  auxiliary  location, 
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9.^.3-   Hierarchy  and  block  numbers 

A  main  program  (BEGIN  ...)  is  called  a  hierarchy  or  order  o.   A  pre- 
compiled procedure  ( PROCEDURE  ...  or  <TYPE>  PROCEDURE  . . . )  is  called  a  hierarchy 
of  order  1.   If  a  procedure  (which  is  not  a  precompiled  procedure)  is  declared 
in  a  hierarchy  of  order  n,    it  is  a  hierarchy  of  order  n+1.   The  hierarchy  number 
of  a  procedure  is  then  the  depth  of  nesting  within  other  procedures.   The  term 
"procedure  with  hierarchy  number  k"  is  sometimes  shortened  to  "hierarchy  k". 
In  the  same  way,  the  block  number  of  a  block  in  a  hierarchy  is  defined  as  the 
level  of  nesting  in  other  blocks  of  this  hierarchy.   An  imaginary  block  o 
surrounds  each  hierarchy. 
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q.k.k.      Free  fixed  storage,  FFS,  DFS 

Each  hierarchy  k  has  a  set  of  locations  consisting  of  simple  variables, 
auxiliary  locations,  array  information  vectors,  hidden  variables,  etc.,  whose 
length  can  be  determined  at  compile  time  -  called  the  free  fixed  storage  ( f f s )  of 
this  hierarchy.   The  ffs  of  hierarchy  o  is  given  absolute  locations  at  compile 
time  in  upper  memory,  starting  at  HILOC-1  and  working  downward  (see  figure  2). 
Locations  in  the  ffs  of  hierarchy  k  ^  o  are  given  addresses  -1,  -2,  -3,  • • •  which 
will  be  relocated  with  the  aid  of  an  index  register  during  run  time.   Storage  for 
hierarchy  k  /  o  is  therefore  allocated  dynamically,  as  is  storage  for  all  arrays. 
In  general,  parallel  blocks  will  share  storage  locations  in  the  ffs  of  the 
hierarchy  in  which  they  appear,  since  parallel  blocks  cannot  be  open  at  the  same 
time . 

When  a  block  in  which  arrays  are  declared,  or  a  procedure  is  entered 
it  takes  storage  immediately  below  storage  that  has  been  used  so  far  (see  figure 
2).   In  order  to  explain  this  more  clearly,   we  go  into  the  details  of  the 
object  program. 

Let  the  locations  n  to  n+m-1  be  allocated  to  ffs  of  hierarchy  k.   Then 

location  n+m  is  known  as  the  FFS.  .FFS   =  HILOC  is  an  absolute  location.   For 

k    o 

k  /  o,  FFS   is  a  variable  depending  on  storage  allocation  immediately  before  the 

K. 

procedure  was  called.   When  hierarchy  k  is  entered,  and  FFS  determined,  -FFS 

k  k 

is  put  into  XR1.   Then  all  locations  -i  of  the  ffs  of  this  hierarchy  will  be 
referenced  by  -i,l  (in  certain  instances  by  -i,U  if  XRU  is  properly  loaded). 

Each  block, b,  of  hierarchy  k  has  a  reference  location  ,  DFSL  in  the 
ffs  which  will  contain  an  address  DFS   (Dynamic  Free  Storage)  when  the  block 

D     K. 

is  entered.  i^FS  is  the  lowest  location  used  by  the  block  for  arrays  or 

variables,  this  is  determined  by: 

DFS  =  lowest  location  of  free  fixed  storage 

o   o 

of  hierarchy  o. 
FFS  (k  /  o)  =      DFS  of  block  which  called  this  procedure. 

DFS  (k  /  o)  =      FFS   -  length  (free  fixed  storage  of  k) 

OK  K 

-  length  (storage  needed  for  value 
arrays) 
DFS  (b  /  o)  =      ,  -.DFS   -  length  (storage  needed  for  arrays 

declared  in  b) 
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DFS^"7 
o   o 

HILOC  = 

FFS^^ 


1:   BEGIN  PROCEDURE  A; 

BEGIN  ARRAY  B  [l :  lo]  j 

3:  D.=  5 

END  PROCEDURE  A; 

REAL  D; 
BEGIN  ARRAY  E[l:lo]  ; 
2:  A; 
ki    END 
END  PROGRAM 

Figure  1 
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PROG  INSTR 


CONSTANTS 


code  proc. , 
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o   1 


FFS  = 
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.DPS 
2   o 

,DFS^ 
1   o^ 

DFS- 
o   o 


FFS 
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SYSTEM 


PROG  INSTR 
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code  proc, 

library 
subroutines 


free 
storage 


array  B 
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fixed  storage 
hierarchy  o 


at  label  3 


Storage  allocation  at  different  points  in  program  in  figure  1. 

Figure  2 
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9.^.5-   Object  program  for  storage  allocation 

Location  n DFSLn  contains  not  only  the  ,  DFS,  ,  but  also  an  instruction 
b    k  b   Is.' 


,DFSL.    AXC 
b    k 


.  DF3.  ,  k 
b   k' 


The  object  program  for  storage  allocation  is  as  follows: 
(a)  Beginning  of  main  program: 


AXC 

DF3    ,    k 
o        o 

CAL 

*   -   1 

SLW 

DFSL 
o          o 

(b)  when  entering  block  b(/o)  of  hierarchy  k: 


(c)  Array  storage  allocation  is  executed  by  a  subroutine  which  has  as 
a  parameter  DFSL  ,  and  will  change  the  contents  of  this  location 
accordingly. 

(d)  Call  of  a  procedure  or  formal  parameter.   If  "necessary"  the 
instruction 


LDI 


^DFSL, 
b    k 


will  appear.   This  instruction  is  "necessary"  if  a  label,  block  begin, 
block  end,  or  if  then  else  structure  appears  between  this  call  and  the 
last  call  of  a  procedure  or  formal  parameter,  or  if  this  is  the  first 
call  appearing  in  the  program.   The  indicators  are  therefore  used  to 
convey  information  about  storage  allocation,  and  should  not  be  dis- 
turbed by  machine  language  subroutines . 
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(e)  Begin  of  a  procedure  (hierarchy  k).   Procedure  linkage  is  done  by 
a  subroutine  which  will,  among  other  things,  perform  the  following 


(1)  Save  XR1,  indicators  (FFS,  DFS  calling) 

(2)  -<indicators>„ — *  XR1   (FFS,  ) 

A  k 

(3)  -<XR1>-  length  (free  fixed  storage 

hierarchy  k) 
-  length  of  storage  needed  for 
value  arrays 


-»  (  DFSL,  ). 
o    k  A 


(f)  End  of  procedure, 


Restore  XR1  (FFS  of  calling  hierarchy) 
and  indicators  (DFS  of  calling  "block). 


This  frees  the  storage  used  by  the  procedure. 

Important 

It  is  to  be  noted  that  if  k  /  o  in  (b)  and  (d),  then  index  register  1 

will  be  used. 

That  is,  if  k  /  o  then  the  instruction  will  appear  as 


instead  of 


CAL 

b-lDFSIV  x 

CAL 

-     nDFSL 
b-1          k 

In  the  rest  of  this  section  this  will  not  always  be  mentioned,   but 
it  will  be  assumed  that  XR1  will  be  used  for  all  variables  in  the 
free  fixed  storage  of  hierarchy  k  /  o  when  the  program  is  in  this 
hierarchy  k. 
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9-5-  Array  Declaration 

9.5-1.   Information  vector  and  storage  of  an  array 

Every  array  a[l  :U  }    ...    ,L  :U_J  has  as  information  vector  in  the 
ffs  of  the  form 


location  A 


A+l 


U2 

- 
-  L2  +  1 

U3 

-L3  +  l 

- 

u 

n 

-  L      +1 
n 

>A 

_o,  .  ..,o]< 

DFS        /DFS   nJ 
new'        old 

A+n-2 
A+n-1 
A+n 

"A",  then,  refers  to  the  lowest  location  of  the  information  vector.  All 

numbers  are  in  the  address  of  the  word,  except  DFS    ,  which  is  in  the 

new7 

decrement. 

DFS  .  _  =  >A[U,  ,U.,...,U  ]<  +1 
old     L  1'  2      nJ 

is  the  DFS  of  the  block  in  which  the  array  is  declared,  before  the  declaration. 

DFS    =  >A[L  ,  ..  .,L  1<  =  DFS  ,  .  -  7T  (U.-L.+l) 
new     Ll'    '    rr1  old   ,/\  v  i   i   ' 

i=l 

is  the  DFS  of  the  block  after  the  declaration.   Storage  of  the  array  is  defined 
by  the  rule. 


>A[i1,i2,...,in]<  =  >A[o,o,...,o]< 

+(...(i1»(U2-L2+l)+i2)*...) 


*(U   -L  +l)+i 
n     n  n 


where  >Aj"o,o,  .  .  .  ,ol<  =  DFS        -(  .  .  .  (L .*(U_-L_+l)+LvJ* 

"-  '    '        '  -1  new   v  12     2  2 


.  .  )*(U    -L  +1)-T, 
n     n  n 
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9« 5-2.   Subroutine  calls  in  the  object  program 

Consider  the  declaration  in  a  block  with  block  number  b;  hierarchy  k. 

AKKAY  A  ,   A  ......  A   [1-,  :  U_ ,  . 

n7   n-1      '   o  '-l    L> 


.  L   :  U  ] 
'   n    n-1 


The  object  program  for  allocation  of  storage  to  A  is 


AXT 

o,l   (only  if  k  = 

0) 

TSX 

)ARDEC,  k 

TIX 

A       n 
0,, 

TIX 

bDFSLk 

(i) 

TSX 

>Li< 

(i) 

TSX 

>ui< 

(i) 

TSX 

>L  < 

n 

(i) 

TSX 

>U  < 
n 

The  sign  of  a  TSX  is  +  if  the  corresponding  bound  is  in  floating 
point,  -  if  in  fixed  point.   The  bound  will  be  in  fixed  point  if  it  is  an 
unsigned  integer.  >L.<  (or>U.<)  is  an  address  or  an  address  with  tag  1 
(indicating  FFS  ) .   If  a  bound  is  not  addressable  in  this  form,  it  is  evalu- 
ated  immediately  before  the  call  of  )ARDEC  and  put  in  an  auxiliary  location 
in  ffs  and  this  auxiliary  location  is  used. 

For  i  /  o,    storage  is  allocated  to  A.    immediately  before  storage 
is  allocated  to  A. .  The  object  program  for  A   is 


TSX 

)ARDEI,  k 

TIX 

A.  .   n 
1-1,, 

TIX 

JDFSL,   A. 
b    k,,  1 
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9.5.3-   Subroutines  )ARDEC  and  )ARDEI 

Subroutine  )ARDEC  does  the  following: 

a)  make  up  the  information  vector  for  A 

c  o 

b)  check  for  overflow  of  memory 

c)  change  contents  of  ,  DF3Ln 

b    k 

Subroutine  )ARDEI  does  the  following: 

a)  copy  the  information  vector  of  A.  n  into  Iocs  A..A.-t-l, 

1-1  l'  IV 

....  A . +n 

'      1 

b)  check  for  overflow  of  memory 

c)  reduce  (in  inf  vect  for  A.)  the  address  part  of  loc  A.+n, 

A.+n-l,  and  the  decrement  of  A . +n  by  the  length  of  the  array 

d)  change  location  .  DFSL, 

b    k 
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9.6.   Strings 

Strings  are  also  referenced  by  an  information  vector  of  the  form 


PZE   loc  of  first  word  of  string, ,    number  of  words 


(one  word  only) 
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Switch  Declaration 


SWITCH  S  :=  D  ,    D  , 


J   n 


where  D.  is  a  designational  expression, 
The  object  program  is: 


TEA 

OVER 

Gr 

calculate  D  and 

jump 

V 

calculate  D  and 

jump 

G  : 
n 

calculate  D  and 
n 

jump 

S 

EQU 

*-l 

TRA 

Gi 

TRA 

G2 

TRA 

G 

n 

OVER 

BSS 

o 

See  section  9'1^-  for  "the  instructions  "calculate  D.  and  jump' 
As  can  he  seen,  S  is  given  the  address  >(TRA  G  )<  -1 
If  the  set  of  instructions  for 


consists  of  a  single  instruction  (in  most  cases),  then  the  set  of  instructions 
at  G.  is  deleted,  and  TRA  G.  is  replaced  by  calculate  D  and  jump. 

The  jump  to  a  switch  element,  S [e]  ,  is  then  accomplished  by  putting 
-E  into  XRk   and  executing  a 


TKA 


s,  k 
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9.8.   Procedure  Declaration 

Naturally,  the  procedure  declaration  is  closely  connected  to  the 
procedure  call  and  the  call  of  formal  parameters.   It  would  he  best,  then;  to 
glance  over  sections   9-8.,  9 .10,  and  9-ll.j  an(i  then  to  study  all  three 
together  in  detail.   Important  for  all  three  sections  is  the  layout  of  the 
ffs  of  a  procedure  when  in  the  procedure,  given  in  9. 8.1. 

Let  k  be  the  hierarchy  number  of  the  procedure  being  declared, 
b  the  block  number  of  the  block  and  t  the  hierarchy  number  in  which  the 
call  of  this  procedure  occurs.   X2  is  the  contents  of  XR2  at  the  call  and 
RETURN  is  the  return  address.   Let  this  procedure  have  n  parameters. 
RETURN  =  calling  point  +n+l. 
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9.8.1.   ffs  of  a  procedure 

At  execution  time,  when  in  a  procedure  declaration  of  hierarchy  k 
there  is  always  exactly  k-1  surrounding  procedure  declarations .   These 
procedures  are  open,  and  have  hierarchy  numbers  k-1,  k-2, .  .,1,  and  corres- 


ponding FFS's  FSS   , 


,  FSS  .   Each  formal  parameter  uses  1  location  in 


the  ffs,  except  an  array  of  dimension  n,  which  takes  n+1  locations 
The  following  is  the  layout  of  the  ffs . 


V 


■P:p- 


-5-k; 


■U-k: 


auxiliary  locations 


parameter  n 


parameter  2 


parameter  1 


variables,  DFSL's, 
information  vectors,  etc. 


If  a  function,  then  this  cell  is 
for  the  function  value. 


■U-l 
-U 

-3 
-2 
-1 


/Vv\/V\/VV\A/VvVVW\ 

AXC                      FFS,  ,    k 
k 

- 

AXC 

FFS2,    h 

AXC 

FFS1,    k 

AXC 

DFS,  ,    k 
o       k 

TRA 

RETURN 

AXT 

X2,    2 

AXT 

OIBt,    1 

lower  memory 


/ 


length  of 
ffs=lFSS, 


, 


length  of 
ffs=lF3S, 


higher  memory 


FFS, 
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p.  denotes  the  lowest  location  used  for  the  parameter  i,  -|3  denotes 

the  highest  location  used  by  the  first  parameter.   Each  ffs  ,    k  4   o,  has  at 

least  5  auxiliary  locations,  which  are  used  "by  the  procedure  transporter 

routine,  A)PTRA. 

Upon  entering  the  procedure,  if  formal  parameter  i  is  ARRAY,  the 

information  vector  is  transported  into  ffs  .   If  it  is  also  VALUE,  the  array 

is  then  transported  to  locations  just  below  this  DFS  ,  the  information 

vector  which  has  been  transported  to  this  ffs  is  changed  accordingly,  and 

location  -h   of  FFS,  (the  DFSL,  )  is  changed. 

k      o    J^ 

If  formal  parameter  i  is  not  ARRAY  and  is  called  by  VALUE,  the 

value  will  be  stored  in  the  location  p..   Otherwise  an  instruction  will  be 

1 

stored  in  the  location  p..   (See  procedure  call  and  formal  parameter  call, 
sections  9-10.6.  and  y.ll.,    and  section  9«8»3-)' 
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9-8.2.   Object  program  for  procedure  declaration 


TRA 

OVER 

o.  .  .0 

k-1 

n 

S,1...8 

9    13 

Ik              20  21     35 

PZE 

-p 

PZE 

-1FES, 

k 

entry  point: 

PXA 

o,k 

TSX 

A)PTRA,  k 

value 

indicators 

value 

i  nrl  i  f.'i.l.i  ,r  ■ 

procedure  body 

CLA  or  CAL   -5-k 

(if  this  is  a  function) 

XEC 

-2,1 

(restore  XR2) 

l,[)J 

-4-k,l 

(restore  indicators) 

LDQ 

-3,1 

(initialize  RETURN) 

STQ 

*+2 

XEC 

-1,1 

(restore  XRl) 

PZE 

(return) 

OVER 

BSS 

0 

Each  word  of  "value  indicators"  has  the  following  form: 


o o 

0 

1 

1 

o 

1 

o 

1 

1 

0 

o 

SI-  9  10  11   12  13    32  33   3U    35 
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A  o  (l)  in  an  even  bit  means  that  this  parameter  is  (not)  VALUE. 
As  many  words  as  necessary  are  used  to  indicate  VALUE  or  not 
VALUE  for  all  parameters . 
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9-8.3-   Subroutine  A)PTRA 

This  subroutine,  called  at  the  "beginning  of  every  ALGOL  procedure, 
does  all  necessary  storage  allocation  for  the  procedure  and  transports  all 
information  about  the  actual  parameters.   The  parameters  for  A)PTRA  are  the 
value  indicators  and  the  3  locations  appearing  before  the  call  point  (see 
9-8.2.). 

Some  complications  occur  if  the  procedure  called  is  a  formal 
parameter . 

Consider  the  following  part  of  a  program: 


|Tro1:EDURE~  bCx77        I 
PROCEDURE  X; 
BEGIN 

2:   X(...); 


END; 


END; 

^OCEDURE~  AT 

BEGIN  REAL  K; 


L 


PROCEDURE  C(...)j 
BEGIN 


3:  K:  = 


END; 
1:  B(C); 


END; 


EN  1 1 ; 


J 


Date: 
Section 
Page: 
Change : 


9/28/6U 
9.8.3- 
l  of  3 

1 


Procedure  C,  the  nested  procedure,  uses  a  global  value,  K.   Therefore 
it  must  "be  able  to  reference  ffs   the  free  fixed  storage  of  procedure  A,  since 
K  is  declared  there.   Now  C  is  called,  through  the  use  of  the  procedure  formal 
parameter,  at  label  2.   Procedure  C  will  have  to  save  FES  and  initialize  XR1 
upon  return  with  FFS  .   In  this  case,  where  a  procedure  formal  parameter  is  used, 
two  FFS ' s  must  be  used  by  the  called  procedure.   We  name  the  first  point  of  call 
of  a  formal  parameter  procedure,  in  this  case  at  label  2,  the  official  calling 
point.   The  pseudo  calling  point  is  the  point  where  the  actual  parameter  which 
is  not  a  formal  parameter  appears  -  in  this  case  at  label  1. 

In  most  cases,  official  and  pseudo  calling  points  are  the  same;  only 
with  procedures  which  are  formal  parameters  are  they  different.   FFS  pseudo 
calling  point  is  needed  only  to  get  the  FFS ' s  of  all  surrounding  procedures. 
Just  how  these  two  are  used  can  be  seen  from  the  flow  chart  of  A)PTRA. 

In  the  beginning  of  the  main  program  appears  the  instruction 


STZ 


HILOC 


If  <HILOC>  is  not  o,  <HILOC>^  contain  -FFS  __.  .  _ 

D  official  calling  pt 

official  calling  point),  and  XR1  contains  -FFS 


(put  in  at  the 
.   If  <HILOC>  = 


pseudo  calling  pt 
o,  the  two  FFS's  are  the  same  and  appear  in  XR1. 
The  flow  chart  for  A)PTRA  is: 

a)  Allocate  storage  for  ffs,  using  the  DFS  appearing  in  the 
indicators.   (Use  the  formula  given  in  ty.k.h.) 

b)  Check  memory  overflow. 

c)  Make  up  words  -k-1   to  -U-k+1  of  the  ffs.   These  are  taken 
from  the  same  part  of  the  ffs  defined  by  XR1  (pseudo 
calling  point) . 

d)  <HILOC>  =  o?   yes  ^ 

no 
<HILOC>  -^XRl,  o->  HILOC 


e)   Make  up  word   -1  to  -k   of  the  FFS. 

Make  up  word  -k-k   (this  is  the  indicators) 
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f)  Move  the  parameter  list  as  follows  (refer  to  section 
9.10.6.3.). 

1)  Parameter  i  is  array  or  string  (dimension  n). 

a)  Execute  thunk  th. 

1 

b)  Move  information  vector  from  locations  defined 
"by  <XR^->  through  <XRU>  +  n  to  locations  p. 

through  p . +n . 

c)  If  value  array,  move  the  array  to  free  storage 

directly  below  location  ___    ,      T,_OT 

oDFS.  ,  change  DF3Ln  , 
k'        ok 

check  for  memory  overflow,  change  the  information 

vector. 

2)  Parameter  is  value. 

executive  thunk  th.,  put  value  in  location  p. 

3)  Parameter  not  value. 

<t.>  — >   p. 

1       1 

g)  Fix  the  indicators  with  DPS,  and  XR1  with  -FFS.  . 

ok  k 

h)  Return  to  the  cell  directly  after  the  value  indicators. 
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9.9-   Glohals 

Suppose  the  program  is  in  hierarchy  k,  and  a  name  X,  which  is 
declared  or  specified  in  hierarchy  t,  t<k  is  used.  X  is  then  a  "global 
variable" . 
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9.9-1-   Declared  in  hierarchy  o 

If  t  =  o,  nothing  extra  is  required,  since  X  has  an  absolute  location, 
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9. 9- 2.   Declared  or  specified  in  hierarchy  ^  o 

t  /  o.  XR1  contains  ( -FFS1  )  and  not  ( -FFS  ) .   Therefore  something 
extra  is  required.   The  instruction 


XEC 


4-t,l 


is  executed,  which  puts  into  XRU  the  value  ( -FFS  ) .   (if  XRk-   already  contains 
( -FFS  ),  this  instruction  will  not  appear  in  the  object  program.)   X  is  then 
referred  to  using  XRk   instead  of  XR1.   (See  section  9.Q.I.    -   ffs  allocation.) 

In  what  follows,  it  will  he  taken  for  granted  that  this  will  be  done, 
without  mentioning  it. 
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9-10.   Procedure  Call. 

A  function  returns  its  value  in  the  AC 


9/28/61+ 
9.10. 
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9.10.1.   SIN,  COS,  SQRT,  LN,  EXP,  ARCT 
These  have  an  object  program 


argument  — ^  AC 
TSX   subroutine,  k 


or 


TSX   subroutine,  k 
TSX   >argument< 


depending  on  the  installation.   It  is  also  a  parameter  of  the  compiler  whether 
>argument<  should  "be  allowed  to  have  an  index  register  or  not. 
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9.10.2.   ABS,  SIGN,  ENTIER 

These  three  are  open  subroutines 


ABS 


argument— >  AC 
SSP 


SIGN 


argument 

-^ 

AC 

TZE 

*+3 

CLM 

ORA 

>1.« 

D< 

ENTIER 


argument— >  AC 

TPL 

*+6 

TZE 

*+7 

CAS 

>-l.o< 

CLA 

>-l.o< 

TRA 

*+k 

FSB 

>.999-.-999< 

UFA 

.ZER 

FAD 

.ZER 
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9.10,3-   afb 

If  Id  is  not  one  of  the  unsigned  integers  1,2, 3^  or  h,    this  is  done 
through  a  subroutine  (one  for  integer  b  and  one  for  real  b).   The  object  program 
is 


a— >  AC 

b— >  MQ 

TSX    s 

ubroutine, 

k 

or 


TSX 

subroutine,  k 

TSX 

>a< 

TSX 

>b< 

depending  on  the  installation.   See  section  9-13-2 


9/28/6U 
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9.10. k.      PRINT,  PRINTF,  READ,  RFADF 

These  have  the  form  of  FORTRAN  I/O  routines.   There  is  a  choice 
"between  the  2  methods 


LDQ  >A< 

STR 

or 

STR 

>A< 

for  PRINT  (A) 

STR 

STQ  >A< 

or 

STR 

>A< 

for  RFAD   (A) 

and 


See  a  FORTRAN  manual  for  details.   The  format  location  and  the  tape 
number  are  not  in  the  calling  sequence  at  the  time  of  the  call,  but  are  put  in 
by  the  called  subroutine,  (which  is  connected  to  the  FORMAT  subroutine)  which 
then  jumps  into  the  installation's  i/O  package. 
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9.10.5.   READMATRIXF,  etc. 

These  have  the  same  format  as  given  in  9-10.4.   The  object  program 
for  I/O  of  the  array  itself,  assuming  PRINTMA.TRIX(A) ,,  is; 


<A  + 

n>— ^ 

AC 

STA 

*+k 

PAX 

o,k 

STD 

*+l 

TIX 

*+l,k,** 

STR 

**,h 

TIX 

*-l,M 

where  A  +  n  is  the  last  word  of  the  information  vector, 
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9.10.6.   Usual  procedure  call 

Let  the  call  take  place  in  a  block  with  "block  number  b  and 
hierarchy  k.   The  procedure  has  n  parameters. 
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9.10.6.1.   Thunks 


A  thunk  is  the  set  of  coding  which  evaluates  an  actual  parameter. 
Usually  a  thunk  is  this  compiler  will  deliver,  in  XRU,  the  complement  of  the 
address  where  the  value  of  the  actual  parameter  is.   Exceptions  are  procedures 
and  arrays  as  actual  parameter.  A  thunk  has  the  following  form: 


k  =  o 


k  /  o 


PXA 

o,l 

save  FFS  calling 

XEC* 

1,2 

put  -FFS,  of  thunk 
k 

in  XR1 

STO 

AUX,1 

save  FFS  calling 

ho 

dy  of  thu 
AUX,1 

nk  1 

CLA 

restore 

PAX 

o,l 

FFS  calling 

TPA 

2,2 

An  exception  is  the  case  of  a  procedure,  or  function  with 
parameters  as  actual  parameter,  and  k  /  o.   The  second  instruction  is 


XEC*   -1,2 


instead  of 


XEC* 


1,2 


In  order  to  understand  the  beginning  and  end  of  a  thunk,  it  is 
necessary  to  be  familiar  with  the  call  of  a  formal  parameter  (section  9»H 
and  section  9-10. 6. 3- )• 
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9.10.6.2.   Body  of  a  thunk 

The  following  is  the  object  program  for  the  "body  of  a  thunk  if  the 
actual  parameter  is  a: 

a)   Constant,  simple  variable  declared  in  hierarchy  t,  or 
value  formal  parameter  specified  in  hierarchy  t.   The 
thunk  delivers  (-address  of  variable)  into  XR^. 
t  =  o,  or  actual  parameter  a  constant 


AXC 


address,  k- 


o<t<k 


XEC 

-k-t,    1 

SXD 

*+2,k 

AXC 

address,  k 

TXI 

*+l,k,** 

SXD 

*+2,l 

AXC 

address,  k 

TXI 

*+l,^,** 

b)  Simple  variable  or  function  without  parameters  which 
is  a  formal  parameter 


object  program  the  same  as  the 

call  of  formal  parameter  (section  9-H'^«) 


c)  Array  name,  A,  or  string,  declared  or  specified  in 

hierarchy  t.   The  thunk  delivers  the  address  of  the  first 
imformation  vector  location  in  XRh 


t  =  o 


t  =  k 


o<t<k 


PXA 

0,1 

XEC 

-i+-t,l 

PAC 

o,U 

PXA 

o,k 

TXI 

*+l,^,A 

PAC 

TXI 

*+l,U,A 
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d)  Arithmetic  or  boolean  expression. 

The  thunk  delivers  ->value  of  expression<  into  JRk. 


value 

of  exxpression- 

>AC 

STO 

(SLW) 

.EXTRA. 

AXC 

.EXTRA, 

k 

e)  Designational  expression  (see  jumps-section  y.lh. 


calculate  expression  and  jump 


f)   Switch  name,  S,  not  formal  parameter. 

It  is  expected  that  XRk   contains  ( -switch  element 
number  to  jump  to).   (See  section  ty.lk.) 


TM 


S,  k 


g)   Procedure  (or  function  with  par),  not  formal  parameter, 
not  standard 


LAC   HTLOC,  k 

TXI   Procedure,  k.    -2 


■(official 
calling 
pt .  )  -»  XE& 


Procedure  (or  function  with  par),  formal  parameter 
( the  i   parameter ) 
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Standard  procedures  or  functions. 

Standard  I/O  procedures  are  not  allowed  as  actual 
parameters . 

Suppose  SIN  is  the  actual  parameter.   Since  the 
calling  sequences  are  different  for  standard  functions 
and  usual  functions,  in  order  to  assure  full  recursive- 
ness, the  program  must  be  treated  as  if  the  actual 


parameter  is  another  function  name,  say  SIN1,  and  that 
SIN1  is  declared  as: 

REAL  PROCEDURE  SIN1  (x),* 

VALUE  X;   REAL  X; 
SIN1  .=  SIN(X); 
The  hody  of  the  thunk  is  then 


LAC 

HILOC,^ 

TXI 

*+k,k, -2 

PZE 

o,l 

PZE 

-8 

PZE 

-13 

PXA 

0,k 

TSX 

A)PTRA,U 

OCT 

ooo1777777T6 

CLA 

-8,1 

TSX 

SIN,  k 

XEC 

-2,1 

LDI 

-5,1 

LDQ 

-3,1 

STQ 

*+2 

XEC 

-1,1 

PZE 

get  -(official  calling 
point    )  into  XR^- 

See  procedure 

declaration-section  9>8.2, 
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9.10.6.3-   Procedure  call  object  program 

If  the  procedure  is  a  formal  parameter,  the  instruction  at  location 
OVER  is  replaced  by  others,  as  shown  in  section  9-H.2. 


-   '■ "  

LDI    ..DFSL     (only  if  not  already  loaded, 

D      i£ 

or  not  in  a  thunk) 

TRA    OVER 

Thl 

thunk  for  parameter  1 

Thn 

thunk  for  parameter  n 

OVER 
tl 

TSX   PROCEDURE,  k 

one  location  for 

— 

each  parameter 

tn 

a)   If  the  i   parameter  is  an  array  of  dimension  n,  location 
ti  is 

ti 


111111 

n  +  1 

Thi 

SI 


5  6    17   21   35 


mill 

i 

Thi 

b)  If  the  i   parameter  is  a  string,  location  ti  is 

ti 

SI 56    17   21   35 

c)  If  the  body  of  the  thunk  i  (ti  not  an  array  or  string) 
is  a  single  instruction  (except  a  jump  to  hierarchy 

/  o),  then  Thi  is  deleted  and  ti  is  the  single  instruc- 
tion. 

a) 


L  i   i  :  ' 


TSX    Thi, 2 


Now,  to  get  the  value  of  the  actual  parameter  i,  one 
has  in  essence  only  to  execute  the  instruction  ti,  or 
in  the  case  of  array  or  strings,  execute  an  instruction 


TSX*   ti,2 


See  formal  parameter  call  (section 
9.U.). 
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9.11.   Call  of  Formal  Parameter 

Suppose  the  call  occurs  in  hierarchy  k,  the  parameter  itself 
belongs  to  hierarchy  t. 
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9.11.1.  Arrays,  strings 

An  array  or  string,  whether  VALUE  or  name,  is  treated  as  declared 

in  the  procedure  of  which  it  is  a  formal  par..,  since  the  information  vector 

has  "been  transported  "by  subroutine  A)PTRA  into  the  f  f  s . 


9/28/64 
9.11.1 
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9.11.2.   Procedure,  or  function  with  parameter 

t  =  k 


t  <  k 


STL 

HILOC 

SXD 

HILOC , 1 

NOP 

-1,1 

XEC 

PJL,1 

XEC 

-4-t,l 

STL 

HILOC 

SXD 

HILOC, 1 

NOP 

-1A 

XEC 

pl,l 

The  STL  instruction  saves  the  (official  calling  point  -2)  of  the 
procedure.   Next  the  FFS  of  the  official  calling  point  is  saved.   The  NOP 
instruction  is  a  reference  to  the  FFS  of  the  hierarchy  to  which  the  actual 
parameter  belongs.   The  rest  of  the  procedure  call  is  exactly  as  described 
in  section  9-10.6.3.   These  instructions  replace  the  instruction  OVER  TSX 
procedure,  k   of  section  9 -10 -6.3. 
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9.11.3-  All  others,  VALUE 

The  value  appear 
any  variable  declared  in  hierarchy  t. 


The  value  appears  in  location  pi  of  FFS, }    and  is  referenced  as 
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9.11.^.  All  others,  name 


t  =  k 


t  <  k 


XEC 

Pi,    1 

XEC 



-l*-t,l 

NOP 

-1,1 

XEC 

NOP 

pi,    k 
-lA 

As  in  9-11-2.,  the  XEC  instruction  causes  the  execution  of  thi . 
In  this  case  XRk   contains  (-address  of  location)  upon  return. 

If  this  formal  parameter  call  occurs  in  a  thunk,  the  instructions 


PXA. 
STO 


o,2 

AUX,1 


CIA 
PAX 


AUX,1 
o,2 


appear  before  and  after  the  call  respectively. 
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9*12.   Array  Element  Address  Calculation. 


The  object  program  uses  the  information  vector  and  the  allocation 
rule  given  in  section  9«5«1« 

An  expression  in  a  subscript  position  will  be  in  fixed  point  if  it  is 
an  unsigned  integer.  In  this  case  the  instructions  for  unfloating  are  deleted*. 
The  instructions  for  UNFLOAT  are 


UFA 

.ZERO 

LGL 

lo 

LGR 

lo 

The  array  element  address  calculation  leaves  the  address  in  the  AC. 
It  will  then  be  put  in  XRh    (complemented)  if  it  can  be  used  immediately,  or  stored 
in  an  auxiliary  location  -  to  be  used  indirect ly. 

Consider  the  array  element  A  [El],  where  El  is  any  expression..   The 
object  program  is: 


where  A  is,  as  usual,  the  first  (lowest)  location  of  the  information  vector. 
Consider  the  array  element  A[E1,E2, . . . ,En] .   The  object  program  is 


El  

y 

AC 

UNFLOAT 

XCA 

MPY 

A 

STQ 

AUX 

E2  

■=7 

AC 

UNFLOAT 

ADD 

AUX 

XCA 

MPY 

A+l 

STQ 

AUX 

— 
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9»13«   Operations  and  Relations 

Overflow  and  underflow  are  handled  by  the  installation's  floating 
point  trap  routine  (it  is  assumed  the  machine  is  in  floating  point  trap  mode ) . 
Therefore  this  depends  on  the  system.   The  compiler  can  be  altered  easily  through 
the  use  of  parameters  to  insert  nothing  at  the  beginning  of  a  main  program  or 
the  instructions 


or 


TSX 


(FPT),  k 


where  (FPT)  is  the  name  of  a  subroutine  and  is  in  the  transfer  vector,  in  order 
to  initialize  the  floating  point  trap  routine. 

The  instruction  FDP  is  used  for  division.   No  check  is  made  by  the 
compiler  for  a  divide  check. 

The  result  is  always  left  in  the  AC  for  arithmetic,  AC  for  boolean 
operations  or  relations.   The  instruction  CLA  A   or   CAL  A   stands  for 
"calculate  the  expression  A  and  put  it  in  the  AC".   If  there  are  two  alternatives 
for  a  certain  operation,  the  second  one  indicates  the  object  program  if  an 
operand  is  already  in  the  AC.   If  there  is  only  one,  it  is  assumed  that  if 
the  first  operand  is  already  in  the  AC,  the  CLA  (or  CAL)  is  deleted. 

The  operands  of  commutative  operations  are  exchanged  if  the  second 
operand  is  already  in  the  AC. 
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9»13«1«   NOT  and  unary  minus. 


NOT  A 


-A 


CAL 

A 

COM 

ANA 

TRUE 

or 
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9«13'2.   Arithmetic  operations 


A  +  B 


CLA   A 
FAD   B 


A  -  B 


or 


A  /  B 


A  *  B 


CLA  A 
FDP  B 
XCA 


A// 


CLA 

A 

FDP 

B 

XCA 

UFA 

.ZER 

FAD 

.ZER 

LDQ 

A 

XCA 

FMP 

B 

or 

FMP 

B 

A  f  B 
If  B  is  not  one  of  the  h   unsigned  integers  1,2,3  or  h,    this  is  done  by  a 
subroutine  (see  section  9*10. 5«) 


B  =  1 


B  =  2 


CLA 

A 

LDQ 

A 

FMP 

A 

LDQ 

A 

FMP 

A 

XCA 

FMP 

A 

OR 


STO 

AUX 

XCA 

FMP 

AUX 

or 


STO 

AUX 

XCA 

FMP 

AUX 

XCA 

FMP 

AUX 
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B  =  h 


LDQ 

A 

FMP 

A 

STO 

AUX 

XCA 

FMP 

AUX 

or 


STO 

AUX 

XCA 

FMP 

AUX 

STO 

AUX 

XCA 

FMP 

AUX 
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9»13«3»      Boolean  operations. 


A  AND  B 


A  OR  B 


CLA   A 

Ana  b 

A  IMPLIES 

B 

CAL   A 

COM 

LBT 

CAL   B 

CLA  A 
ORA  B 

A  EQUIV  B 

CAL   A 
ERA   B 
COM 
ANA  TRUE 
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9»13«^-«   Relations. 

The  relation  yields  a  boolean  value.   In  case  a  relation  occurs  as 
the  boolean  expression  between  IF  and  THEN,,  the  object  program  is  more 
efficient.   See  section  9.15.^. 


A  EQUAL  B 

A  NOTEQUAL  B 

CLA   A 

CLA   A 

FSB   B 

FSB   B 

TZE   *+2 

TZE   *+2 

CAL   TRUE 

CAL   TRUE 

COM 

MA   TRUE 

A  LESS  B 

A  GREATER  B 

CLA   A 

CLA   A 

FSB   B 

FSB   B 

TZE   *+k 

TZE   *+h 

TPL   *+3 

TMI   *+3 

CAL   TRUE 

CAL   TRUE 

LBT 

LBT 

FXD   0,0 

FXD   0,0 

A  NOTLESS  B 

A  NOTGREATER 

B 

CLA   A 

CLA   A 

FSB   B 

FSB   B 

TZE   *+2 

TZE   *+2 

TMI   *+3 

TPL   *+3 

CAL   TRUE 

CAL   TRUE 

LBT 

LBT 

FXD   0,0 

FXD   0,0 
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a)  A,  B  boolean 


b)  A  real;  or  A,B  integer 


GAL   B 
SLW   A 


CIA   B 
STO   A 


c)     A  integer,    B  real 


CLA 

B 

UFA 

.ZER 

FRN 

FAD 

.ZER 

STO 

A 
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9-lU.   Jumps 

The  designational  expression 

GOTO  IF  B  THM  Dl  ELSE  D2 

IF  B  THM  GOTO  Dl  ELSE  GOTO  D2. 


has  the  same  object  program  as 
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9.1^.1.   In  the  same  hierarchy  or  to  hierarchy  o.   (GOTO  D). 

Jumps  in  the  same  hierarchy  or  to  hierarchy  o  will  be  simple 
TRA's  since,  in  the  first  case  FFS  stays  the  same,  and  in  the  second  it  is 
absolute  (XR1  not  needed). 
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9. lU.2.   To  another  hierarchy  t  /  o.   (GOTO  D) 

The  FFS  changes.   The  object  program  is: 


CIA 

-k-t,    1 

PAC 

o,l 

TRA 

D 

-FFS, 


XR1 
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9*1^-. 3 •   To  a  formal  parameter. 

To  a  simple  label,  the  call  is  exactly  the  same  as  the  call 
of  a  simple  variable  formal  parameter  (section  ty.ll.k.) .  To  a  switch 
element  S  [i]  where  S  is  a  formal  parameter: 


AC 

i 

> 

UNFLOAT 

PAC 

o,k 

call 

formal 

parameter 
-J 

If  S  is  a  global  (of  hierarchy  t),  the  call  is 


<I)~ 

>  XRh 

CAL 

-4-t,l 

PAC 

0,1 

XEC 

S,l 

NOP 

-1,1 
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y.lk.k*      To  a  switch  element  (GOTO  S  [El]) 


El 

AC 

UEELOAT 

PAC 

o,k 

TRA 

s,  h 

(See  section  9»T« ) 
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9.15"   Conditional  Statements  and  Expressions. 

9.15*1.   Form  of  conditional  statement, 
(a)   IF  B  THEN  Zl  ELSE  Z2 


test  B  - 
THEN   El 

TRA  OVER 
ELSE   Z2(~  ~  -  . 
OVER   BSS   o 


false 


(b)   IF  B  THEN  Zl 


test   B- 

THEN 

Zl 

ELSE 

BSS      o^, 

false 

i 
-I 
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9-15. 2.   Form  of  arithmetic  and  boolean  conditional  expression. 


IF  B  THEN  El  ELSE  E2 


arithmetic 


boolean 


THEN 

ELSE 
OVER 


test  B 

El  ->  AC 

TEA   OVER 
E2-^  AC-- 
BSS   o 


I 
I 

false 
I 


THEN 

ELSE 

OVER 


test  B- 
El-^  AC. 
TRA  OVER 
E2  -?>  AC. 


'1 


1 


BSS   o 


false 


If  one  of  El  or  E2  are  real,  the  type  of  the  expression  is  real. 


9/28/64 
9.15.2. 
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9»15»3»  Form  of  designational  conditional  expression. 


The  form  of  IF  B  THEN  Dl  ELSE  D2 


is  the  same  as  that  of 


IF  B  THEN  GOTO  Dl  ELSE  GOTO  D2. 
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9.15.3. 
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9«15»^-»   Form  of  the  "boolean  expression  test. 

(a)  If  the  boolean  expression  has  the  form: 

A  rel  b,  where  rel  is  an  arithmetic  relation, 
the  object  program  is: 


A  EQUAL  B 


CLA 

A 

FSB 

B 

IHZ 

ELSE 

A  NOT  EQUAL  B 


CLA 

A 

FSB 

B 

TZE 

ELSE 

A  LESS  B 


A  GREATER  B 


CLA 

A 

FSB 

B 

TPL 

ELSE 

TZE 

ELSE 

CLA 

A 

FSB 

B 

TMI 

ELSE 

TZE 

ELSE 

A  NOT  LESS  B 


A  NOT  GREATER  B 


CLA 

A 

FSB 

B 

TZE 

*+2 

TMI 

ELSE 

CLA 

A 

FSB 

B 

TZE 

*+2 

TPL 

ELSE 

(b)  For  general  boolean  expressions  the  object  program  is 
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9-l6.   FOR  Loops. 

Sections  9.I.6.I;   to  ^.l6.h.    give  definitions  which  are  necessary 
to  differentiate  different  types  of  for  loops  and  to  help  define  those  array 
elements  appearing  in  a  for  loop  whose  address  can  be  calculated  by  "linear 
address  calculation"  (section  9,17.)* 

The  term  "is  changed"  means  that  the  variable  occurs  on  the  left 
hand  side  of  an  assignment  statement  or  is  a  parameter  of  an  input  procedure. 
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9.16,1.   Type  of  FOR  list  elements. 

(a)  El 

(b)  El  WHILE  Bl 

(c)  El  STEP  E2  UNTIL  E3 

A  FOR  loop,  then,  looks  as  follows: 
FOR   I.=  FL1,  FL2,...,  FLn  DO 

where  the  FLi  are  FOR  list  elements,  I  is  the  loop  variable, 
and  E  is  the  FOR  statement. 
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9«l6.2.   Admissible  and  proper  admissible  variables. 

The  admissible  variables  of  a  FOR  loop  are  the 

(1)  SIFV  occuring  in  El,  E2,  or  E3  of  the  FOR  list  elements, 

(2)  The  loop  variable,  if  it  is  an  SIFV,  and 

(3)  admissible  variables  of  surrounding  FOR  loops. 

An  admissible  variable  is  called  proper  if  it  is  the  loop  variable  of 
this  FOR  loop,  or  if  it  occurs  in  "E2"  of  a  FOR  list  element  of  this 
FOR  loop. 
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9*l6.3<   Types  of  FOR  loops. 

1.  A  FOR  loop  is  called  almost  feasible  if  it  satisfies  the 
following  conditions: 

(a)  It  has  only  one  FOR  list  element  -  and  that  is  of  type 
(c).   I.e.  -  the  loop  is: 

FOR  I.=  El  STEP  E2  UNTIL  E3  DO  Z; 

(b)  The  loop  variable  is  an  SIFV. 

(c)  E2  consists  of  SIFV's  and/or  integer  constants. 

(d)  E1,E2,E3  are  of  type  integer,  and  contain  only  the 
operations  +,  -,  and  *. 

(e)  Z  contains  no  procedure  call  which  is  not  a  standard 
procedure  (I/O  procedures,  etc.). 

(f )  If  this  FOR  loop  is  not  in  hierarchy  o,  then  Z  and  E3 
contain  no  function  call,  other  than  a  call  of  a  standard 
function. 

(g)  Z  contains  no  array  declaration. 

(h)  E1,E3,  and  Z  contain  no  call  of  a  formal  parameter  simple 

variable  which  is  not  value, 
(i)  Any  admissible  variable  which  is  changed  in  Z  is  not  a 

proper  admissible  variable  of  this  loop. 

2.  A  loop  is  unfeasible  if  it  is  not  almost  feasible. 

3«  A  loop  is  feasible  if  it  is  almost  feasible  and  no  admissible 

variable  of  the  loop  is  changed. 
k.      A  loop  is  perfect  if  it  is  feasible  and 

(a)  E3  consists  only  of  admissible  variables  and  constants. 

(b)  E2  is  an  integer  constant. 

(c)  Any  perfect  loop  contained  in  Z  does  not  contain  a  jump  out 
of  itself,  or  a  designational  expression  other  than  a  simple 
label. 

Most  loops  are  either  perfect  or  feasible. 


Date:  9/28/64 
Section:  9.16.3- 
Page:  1  of  1 
Change :  1 


9.l6.h.      Object  program  for  unfeasible  loops. 


(i: 


FOR   I.=  El, 

or,  El 

hierarchy  o 

hierarchy  /  o 

El   )T 

El   >T 

AXT   *+3,4 

AXT   *+k,h 

SXA   E   ,,  k 

end 

PXA   o,k 

TRA   STATE. 

STO   AUX  ,  1 

TRA   STATE . 

STATE,  is  the  first  instruction  of  E,  the  loop  statement, 

E   ,  -  see  below, 
end 


(2)   FOR  I.=  El  DO   ;    or  ,  El  DO   ; 

hierarchy  o  hierarchy  /  o 


El  — 

>  I 

AXT 

end 

SXA 

E  . 

'.TV! 

STATE. 

E 

E   , 

TRA 

•** 

El 

■>I 

AXT 

E  _+i,k 

end 

PXA 

o,k 

STO 

AUX  ,  1 

STATE . 

E 

E  , 

TRA* 

AUX  ,  1 

(3)   FOR  I.=  El  WHILE  Bl,    or  ,  El  WHILE  Bl, 


hierarchy  o 


hierarchy  /  o 
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(4)   FOR  I.=  El  WHILE  Bl  DO  or  ,    El  WHILE  Bl  DO 


Hierarchy  0 

Hierarchy  ^  0 

T    El— 7"  I 

T 

El  -?  I 

AXT   T,k 

AXT   T,k 

SXA   E  j3    4 

end 

PXA   o,4 

Bl  -^  AC 

STO   AUX  ,1 

TZE   E   +1 
end 

Bl  -^  AC 

STATE,    E 

TRA   ** 

STATE. 

TZE   E   +1 
end 

E 

end 

E  . 
end 

TRA*  AUX  ,1 

(5)   El  STEP  E2  UNTIL  E3 

(DO  or  , 

) 

Hierarchy  0 

Hierarchy 

El— ^  I 

El  — ; ?>  : 

AXT   F3+l,4 

AXT    F3+1, 4 

SXA   F3,4 

PXA    o,k 

Fl    E2  -^AC 

STO    AUX  ,1 

Fl       E2  -^  AC 

STO    AUX2,1 

F3       TRA*   AUX  ,1 

AXT    Fl,4 
PXA    o,4 

STO   AUX 

F3    TRA   ** 

AXT   Fl,4 

SXA   E  _, .  4 
end 

AXT   *+3,4 

SXA   F3,4 
PXD   0,0 

STO    AUX  , 1 
AXT    *+4>4 
PXA    o,4 

FAD   I 
STO   I 

STO    AUX  ,1 
PXD    o,oJ 

FAD    I 

FSB   E3 

STO    I 
FSB    E3 

DO                  , 

DO 

2- 

TZE  *+5 

TZE    STATE. 

TZE  *+5 

TZE 

STATE, 

LDQ  AUX2 

LDQ    AUX2 

LDQ  AUX2,1 

LDQ 

AUX^l 

TQP  *+2 

TQP    *+2 

TQP  *+2 

TQP 

*+2 

CHS 

CHS 

CHS 

CHS 

TPL  E   .+1 

end 

STATE.  E 

E,  ,   TRA  ** 

TMI    STATE . 

TPL  E   .+1 

end 

STATE.    E 

E        TRA*  AUXn , 1 
end            1' 

TMI 

STATE. 
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9«l6.5«   Object  program  for  almost  feasible  and  feasible  loops. 
This  should  be  read  in  connection  with  section  9*17- 


E2  is  an  unsigned  integer 


E2  not  an  unsigned  integer 


Fl 


F2 


STATE. 


FLIN 


FEND 


El-", 

"  I 

TRA 

FLIN 

CLA 

I 

FAD 

E2 

STO 

I 

FSB 

E3 

TZE 

*+2 

TPL 

FEND 

E 

increment  array 
element  addresses 
(section  9.YJ.6.  ) 

TRA   Fl 

'subroutines  to 
calculate  array 
element  addresses 
(section  9.17.U. ) 

initialize  array 
element  addresses 
(section  9.17.5. ) 


I  —7 

*  AC 

TI;A 

F2 

BSS 

0 

Fl 


F2 


STATE. 


FLIN 


El— 5 

9-   I 

E2  -^-AUXp 

TRA 

FLIN 

CLA 

I 

FAD 

AUX2 

STO 

I 

FSB 

E3 

TZE 

*+5 

LDQ 

AUX2 

TQP 

*+2 

CHS 

TPL 

FEND 

E 

(  increment  array 
>  element  addresses 
(  (section  9.17.6. ) 

TRA   Fl 

(subroutines  to 
calculate  array 
element  addresses 
(section  9.17.U. ) 

initialize  array 
element  addresses 
section  9«17«5« 


FEND 


I  -? 

AC 

TRA 

F2 

BSS 

0 
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9«l6.6.   Object  program  for  perfect  loops. 

This  should  be  read  in  connection  with  section  9*17' 


STATE. 


F2 


FINIT 


FEND 


El  —? 

I 

E3  -*• 

AC 

FSB 

I 

UFA 

CONSTLOC 

STO 

AUX 

UFA 

E2 

TMI 

F2 

PAX 

o,2 

TEA 

FINIT 

E 

CLA 

I 

FAD 

E2 

STO 

I 

increment  array 
element  addresses 
(section  9.17.6. ) 

TK    STATE.   ,2,E2 
TRA    FEND 

subroutines  to  calculate  J 
array  element  addresses  < 
(section  9.17.5. )      J 

initialize  array  ^ 
element  addresses  » 
(section  9. 17*5. )  ) 

TIX    STATE.   ,2,E2 

BSS    o 


CONSTLOC,  made  up  at  compile  time,  contains  the  value  1  in  the  address  part, 
with  a  characteristic  of  233.   If  El  is  an  unsigned  integer,  as  is  usually  the 
case,  the  instruction  FSB  I  is  omitted  and  CONSTLOC  contains  the  value  -El+1. 
Location  AUXQ  is  used  in  the  initializing  of  array  element  addresses. 
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If  this  perfect  loop  is  imbedded  in  another  perfect  loop,  an 
instruction 


SXA    FEND,  2 


is  inserted  after  El >I  ,    and  FEND  becomes 


FEND 


AXT   **,  2 


As  can  be  seen,  the  value  E3-E1+E2+1  is  put  into  XR2,  and  XR2  is  reduced  by 
E2  every  time  before  the  loop  statement  is  executed.   The  loop  is  done  when 
<XR2>  <  E2. 
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9»17<»   Linear  Address  Calculation  in  FOR  Loops. 

References  to  array  elements  within  FOR  loops  occur  very  frequently. 
Without  any  special  method  to  calculate  the  addresses  of  these  array  elements, 
it  can  be  very  time-consuming  to  find  these  addresses  each  time  the  loop  statement 
is  executed,  especially  if  the  subscripts  are  expressions  or  the  array  is  of 
dimension  greater  than  1. 

If  the  expression  for  each  dimension  in  a  subscripted  variable  is 
linear  in  I  (the  loop  variable  of  the  loop  surrounding  this  reference),  then 
the  reference  has  the  property  that  each  time  the  loop  variable  I  is  increased  by 
the  fixed  amount  E2,  the  address  of  the  subscripted  variable  is  increased  by  a 
fixed  amount  fi   (E2). 

Linear  address  calculation,  then,  refers  to  the  process  of  calculating 
the  address  of  each  array  element  referred  to  in  the  FOR  loop,  before  the  FOR 
loop  is  entered  (with  I.=E1,  the  initial  value);  and  then  increasing  each  such 
calculated  address  by  a  fixed  amount  each  time  the  statement  of  the  loop  is  entered. 

Tests  have  indicated  that  this  method  can  cut  the  computing  time  in 
half,  or  even  more,  depending  on  the  program. 

This  section  indicates  exactly  under  which  conditions  the  linear 
address  calculation  can  be  executed,  and  how  it  is  done.   References  are  made 
to  the  object  program  of  FOR  loops,  shown  in  sections  9.l6.h,    and  9,16.5. 
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9.17-1-   Admissible  and  proper  admissible  subscripts. 

A  subscript  is  called  admissible  with  I  (ADMl)  if  it  is  linear  in 
the  loop  variable,  contains  only  admissible  variables  and/or  constants,  and  only 
the  operations  +,  -,  *° 

A  subscript  is  called  admissible  (ADM)  if  it  is  ADMI  but  does  not 
contain  the  loop  variable. 

A  subscript  is  called  proper  admissible  with  I  (PADMl)  if  it  is 
ADMI,  but  all  admissible  variables  in  it  are  proper  admissible  for  this  loop, 

A  subscript  is  called  proper  admissible  (PADM)  if  it  is  PADMI  but 
does  not  contain  the  loop  variable. 

A  subscript  is  called  perfect  admissible  with  I  (PEADMl)  if  it  is  ADMI 
and,  if  it  has  n  dimensions,  the  expressions  for  the  first  n-1  dimensions  do  not 

contain  the  loop  variable  and  the  expression  for  the  n   dimension  is  of  the 

+ 
form  I,  or  I  -  expression,  where  the  expression  does  not  contain  I.   In  the 

same  way  define  perfect  proper  admissible  subscripts  (PEPADMl).   PEADMl  and 

PEPADMI  subscripts  are  referenced  in  a  special  way  in  perfect  FOR  loops 

(see  section  9*17«3«)*   In  other  FOR  loops  they  are  treated  like  ADMI  and 

PADMI  subscripts  respectively. 
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9- 17*2.   Linearly  calculable  array  elements. 

The  following  table  indicates  which  elements  can  be  calculated  linearly. 
L  means  calculate  the  address  initially  and  increment  each  time  through  the  FOR 
statement.   0  indicates  calculate  the  address  only  initially  and  use  it  throughout 
the  execution  of  the  loop. 


array 
1  o  op^-ovfil  e  me  n  t 

ADMI 

1 

ADM 

PADMI 

PADM 

PEADMI 

PEPADMI 

others 

perfect 

L 

0 

L 

0 

L* 

L* 

no 

feasible 

L 

0 

L 

0 

L 

L 

no 

almost 
feasible 

no 

no 

L 

0 

L 

L 

no 

unfeasible 

no 

no 

no 

no 

no 

no 

no 

^"incrementing  done  differently  than  others. 
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9- 17 -3«   Object  program  for  linearly  calculable  array  elements. 

If  the  same  array  element  appears  more  than  once  in  a  FOR  loop,  the 
address  will  be  calculated  only  once  and  stored  in  the  first  location  of  the 
object  program  which  references  this  array  element.   All  other  references  use 
this  location.   An  example  will  illustrate  this: 

A[I+2,J]  .=  -A[l+2,J]; 

B   .=  A[l+2,J]   *  C   +  A [1+2, J]; 


The   object  program   (assuming  A[l+2,J]    to  be   linearly  calculable)   is 


A   cL 


CLS 

■** 

STO* 

A  cL 

LDQ* 

A(^ 

FMP 

C 

FAD* 

A  d- 

STO 

B 

The  address  part  of  AoL  must  of  course  contain  the  address  of  the  array  element 
A[l+2,J].   This  is  put  in  before  the  loop  statement  is  entered  (sections  y.YJ.k. 

and  9.17.5. )• 

All  PEADMI  and  FEPADMI  array  elements  in  a  perfect  FOR  loop  are 

referenced  a  little  differently.   These  are  tagged  with  XR2,  and  only  XR2  is 

changed  before  the  loop  statement  is  again  entered.   See  section  9.16.6. 

If  A [1+2, J]  is  PEADMI  or  PEPADMI  in  a  perfect  FOR  loop  (J  must  be  the 
loop  variable),  then  the  above  object  program  would  appear  as: 


A  oL 

CLS 

**,2 

STO* 

A  d~ 

LDQ* 

Ac)w 

FMP 

C 

FAD* 

A  c*~ 

STO 

B 
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The  address  part  of  A  °C  would  contain,  for  the  first  time  through 
the  loop  statement,  the  address  >  A [ 1+2, J]  <  +  E3-E1+1  ,  since  XR2  contains 
E3-E1+1  initially  (section  ^.l6.6.).      Then,  each  time  through  the  loop,  J 
is  increased  by  E2  and  XR2  is  decreased  by  E2o 


P 


PEADMI 


(E2)  =  p 


PE  PEADMI 


(E2)  =  E2. 
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9'17'^-*   Subroutines  to  calculate  array  element  addresses, 

Refer  to  the  object  program  of  FOR  loops,  sections  ^.l6^.    and  9.16.6, 
In  order  to  calculate  the  increment  ft   (E2)  for  an  array  element  address, 
if  the  loop  variable  is  incremented  by  E2,  it  is  sometimes  necessary  to  calculate 
the  array  element  address  for  both  I.=  El  and  I.=  E1+E2.   Therefore  the  calculation 
of  an  array  element  address  is  done  by  a  subroutine. 


AP 


SXA     AS  }    k 

calculate  address,  put 
into  AC  address  (see 
section  9*12' ) 


AS. 


AXT 
TRA 


**,    k 


All  different  array  elements  which  are  linearly  calculable  have  such 
a  subroutine  in  the  object  program  (in  the  place  indicated  in  section  9*1^-5' 
and  9«l6.6.),  with  the  following  exceptions: 

If  a  subroutine  for  Al[El, . . . ,En]  appears  in  the  list,  and 
A2[E1, . . . ,En]  occurs  in  the  loop,  then  no  subroutine  is  necessary  for  the 
latter  if  n  =  1,  or  if  Al  and  A2  are  declared  in  the  same  statement:  ie 

ARRAY  ...,  Al, ,..,A2,... [...]; 

The  address  for  A2[E1, . . ♦ ,En]  will  be  calculated  using  the  address  of 
Al[El, . . . ,En] ,  as  described  in  section  17»5«   It  can  be  seen  that 

>A2[El,...,En]  <  -  >  Al[El,...,En]  <  -  >  Al[o,...,o]  <  +  >  A2[o,...,o]  <. 


Date : 
Section: 
Pai  ;e : 
Change : 


9/28/61* 
9.17.U. 

1  of  1 
1 


9 "17* 5*   Initialize  array  element  addresses. 

This  consists  of  calculating  initial  addresses  for  array  elements 
(see  9«17»^')  an<3-  calculating  ft   (E2)  (the  increment  when  I  is  increased  by  E2) 
for  each  array  element,  if  necessary.   This  is  broken  into  two  parts.   We 
assume  that  A  <S-  is  the  location  where  the  address  is  to  be  inserted  (see  9*17*  3*)> 
and  A[E1, »..,En]  is  the  array  element. 


(l)   Calculate  initial  address  for  element. 

(a)   PEADMI  and  PEPADMI  array  element  in  a  perfect  FOR  loop. 


(subroutine  to  calculate 

address ) 
(see  9.16.6.   AUXQ  contains  the 

value  E3-E1+1) 


TSX 

A0,    k 

ADD 

AUXS 

STA 

Ac^ 

(b)  All  other  elements 


TSX 
STA 


Ad 


Suppose  another  element,  Al[El, . . , ,En]  is  referenced.   Then  if  Al 
appears  in  the  same  declaration  as  A,  or  n  -  1  (ie.  Al[El]  and  A[El]),  no 
subroutine  appears  for  calculating  the  address  of  Al[El, . . . ,En] .   Instead 
the  object  program  looks  like 


TSX 

A3,  k 

STA 

AoL. 

SUB 

A+n-1 

ADD 

Al+n-1 

ivru 

Al<jL 

(location  containing  >  A[o,...,o]<) 
(location  containing  >  Al[o,..,o]<) 


See  sections  9*5«1«  and  9«17«'4' 
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(2)   PEADMI  and  PEPADMI  array  elements  in  perfect  FOR  loops  are 
incremented  with  XR2.   (0(E2)  =  E2  for  such  elements). 
PADM  and  ADM  elements  need  no  incrementing,  since  they  do 
not  depend  on  the  loop  variable.   The  following,  then,  refers 
to  all  other  cases. 

Directly  after  the  object  program  defined  in  9«17«5»(l) 
comes  the  object  program  for  calculating  0(E2)  for  each 
array  element.  As  shown  in  9.YJ.6.,    incrementing  is  done  by 


LXA 

A<A,  k 

A) 

TXI 

*+l,    k,    ft   (E2) 

SXA 

Ack,  k 

The  object  program  for  calculating  each  ft   (E2)  is 


CLA 

I 

FAD 

E2 

STO 

I 

TSX 

A^M 

LAC 

A^o^U 

ALS 

18 

STD 

*+l 

Get  set  for  I-.=  E1+E2  to 
calculate  each  subscript  again 


Go  calculate  address 
substract  address  calculated  with 
I  :=  El  from  address  calculated 
with  I:=  E1+E2 
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TXI 

*+l,k,** 

SXD 

A±f  ,    k 

> 

SXD 

^X  ,    k 

==» 

i 

SXD 

A  J  ,    k 
n 

_> 

TSX 

A  p,k 

m 

\ 

LAC 

m 

1 

ALS 

18 

STD 

*+l 

/ 

TXI 

*+l,l*,*» 

\ 

SXD 

V^ 

SXD 

v u 

y 

CLA 

I 

FSB 

E2 

STO 

1 

I 

store  difference  fi   (E2) 

store  this  difference  to  help 
increment  all  addresses  known 
to  have  the  same  ft   (E2) 


calculate  and  store  0  (E2) 
for  another  set  of  array  ele- 
ments 


reset  I  to  El 


If  no  such  calculation  appears,  the  increasing  and  decreasing  of  I  is 
omitted. 

As  many  SXD's  appear  as  different  array  elements  which 
are  known  to  have  the  same  P   (E2),  as  described  in 
9.17.5.(1)   (b). 
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9«.17-6»   Incrementing  array  element  addresses. 

For  each  array  element  which  must  be  incremented,  the  instructions 


LXA 

A<,k 

A^ 

TXI 

*+l,k,fl   (E2) 

SXA 

A<,h 

appear.   Where  they  go  can  be  seen  in  the  object  program  for  FOR  loops, 
sections  9,16.5.  and  9.16.6. 
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9«l8,   Object  Program  Examples. 

9.18.1.   Perfect  loop. 

Source  program". 

FOR  I:=l  STEP  1  UNTIL  N  DO 

BEGIN  A[l]:=  A[2*l]    -  A[l]    +A[l-l]; 

B[l]:=  A[I-1]    +B[2*I]; 
END; 

The  object  program  consists  of  80  instructions,  63  of  which  are  initialization* 
The  loop  statement  and  test  comprise  only  17  instructions. 


STATE, 
A  ^ 

A3^ 


B  «*- 
B2^- 


A 


<p^ 


CLA 

STO 

CLA 

UFA 

STO 

UFA 

TMI 

PAX 

TRA 

BSS 

CLA 

FSB 

FAD 

STO* 

CLA* 

FAD 

STO 

CLA 

FAD 

STO 

LXA 

TXI 

SXA 

LXA 


=1.0 

I 

N 

CONSTLOC 

AUXg 

=  1.0 

F2 
0,2 

FINIT 

o 
#*• 

**,2 
**,2 
A2oC 
A3^_ 

**,2 

I 

=l.o 

I 

A^,  k 

*+l,k,** 

A^,  U 


(with  char.  =  (233  )o) 

o  rr 

<CONSTLOC>  =  -El+l=o^ 
SAVE  E3-E1+1  fixed  point 
ADD  E2 

E3  <  El  -DON'T  ENTER  LOOP 
E3+E2-E1+1  — ?XR2 
GO  INITIALIZE 

A[2*I] 

A[I] 

A[I-1] 

A[I] 

A[I-1] 

B[2*l] 

B[I] 

INCREASE 

LOOP 

VARIABLE 

INCREMENT  ADDRESSES 
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V 

TXI 

*+l,i+,** 

SXA 

B±oi,   h 

TIX 

STATE., 2,1 

F2 

TRA 

FEND 

V 

SXA 

Vi'4 

LDQ 

=2.0 

FMP 

I 

UFA 

,ZER 

ALS 

lo 

ARS 

lo 

ADD 

A 

Vi 

AXT 

**,k 

TRA 

i,h 

A2P 

SXA 

A2P1^ 

CLA 

I 

UFA 

»ZER 

ALS 

lo 

ARS 

lo 

ADD 

A 

¥1 

AXT 

**,k 

TRA 

i,h 

A3P 

SXA 

Vi^ 

CLA 

I 

FSB 

=1=0 

UFA 

cZER 

ALS 

lo 

ARS 

lo 

ADD 

A 

Vl 

AXT 

**,k 

TRA 

i,h 

FINIT 

TSX 

A^k 

STA 

V^ 

SUB 

A 

Dati  ■ 
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DECREASE,  TEST  END  OF  LOOP 
DONE  WITH  LOOP 


I 


subroutine  for  calculating 
>  A  [2*1]  < 


J 


subroutine  to 
calculate  >  A[l]< 


subroutine  to 
calculate     >  A[l-l]< 


initialize   addresses 
>A[2*I]< 


ADD 

B 

STA 

B  &- 

TSX 

A2M 

ADD 

AUXQ 
o 

STA 

v- 

SUB 

A 

ADD 

B 

STA 

\°<- 

TSX 

AgM 

ADD 

AUXg 

STA 

A^~ 

CIA 

I 

FAD 

=l.o 

STO 

I 

TSX 

A1P  ,k 

LAC 

A^-,U 

ALS 

18 

STD 

*+l 

TXI 

*+l,^,** 

SXD 

kj  J* 

SXD 

\y>k 

CLA 

I 

FSB 

=1.0 

STO 

I 

TIX 

STATE., 2,1 

FEND 

BSS 

0 

>  B[2*I]< 

=E3-E1+1 

>  A  [I]    <  +E3-E1+1 


>  B[l]   <   +E3-E1+1 

>  A[l-1]    <  +E3-E1+1 

increase   I 

get  f)   (E2)   for 
A[2*I] 


p   (E2)    stored  for  A[2*l] 
ft   (E2)    stored  for   B[2*l] 
reset   I 


TEST,    JUMP  TO   STATEMENT 
DONE 
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9»l8.2»   Procedure  and  procedure  call. 

Source  program 

BEGIN  PROCEDURE  A(l,C); 

VALUE  I;   REAL  C;   INTEGER  I; 

BEGIN  C.=  I*Cj 

END  A; 

REAL  D; 

D.=  l; 

A  (3*2o,D); 

PRINT  (D); 

end; 


Object  program 


(EXIT)     BCI 

PRINT      BCI 
A)FTRA     BCI 

STZ 
AXC 
CAL 

SLW 
CAL 
SLW 
TRA 


1,   (EXIT) 
1,   PRINT 
1,   A)PTRA 

HILOC 

DFS  ,h 
o       o 

*-l 

DFSL 
o    o 

DFSL 

0  o 

nDFSL 

1  o 

OVER1 


o 

u 

2 

Ik            1 

PZE 

-7 

PZE 

-12 

PXA 

o,k 

TSX 

A)PTRA 

o     0 

olll 

11 llo 

o    lo  11 


IS 


35 


Transfer  vectors 


initialize  (  DFS  =3) 
vo   o 


BLOCK  BEGIN 

begin  procedure 
declaration 
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0VER1 


TH1 


0VER2 

tl 
t2 


CONST1 


LDI 

DFSLn      1 
o          1, 

XEC 

P2,    1 

NOP 

-1,1 

LDQ 

1,1 

FMP 

o,k 

STO 

AUX,1 

XEC 

F2>    1 

NOP 

-1,1 

CLA 

AUX,1 

STO 

o,k 

XEC 

-2,1 

LDI 

-5,1 

LDQ 

-3A 

STQ 

*+2 

XEC 

-1,1 

PZE 

CLA 

C0NST1+5 

STO 

D 

TRA 

0VER2 

LDQ 

CONST 1+6 

FMP 

C0NST1+7 

STO 

. EXTRA 

AXC 

.EXTRA, k 

TRA 

2,2 

LDI 

nDFSL 
1          o 

TSX 

A,4 

TSX 

TH1,2 

AXC 

D,4 

TSX 

PRINT, 4 

STR 

STR 
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Begin  procedure  body 
Get  address  of  C 


I*C 


Get  address  of  C 


STORE  IN  C 
RESTORE  XR2 
RESTORE  DFS 
THE  RETURN  TRANSFER 

RESTORE  XR1   (FFS) 
RETURN 

D:=l 

THUNK  FOR  3*2 o 


CALL  procedure  A 


RETURN  POINT,  PRINT  D 


END  PROGRAM 
CONSTANT  LIST 


OCT 

77-.. 7 

OCT 

2330...  0 

OCT 

1 

..EXTRA 

PZE 

DEC 

1.0 

DEC 

3.0 

DEC 

2o.o 

ffs 


FFS   =   HILOC  ^ 


nDFSL 
1    o 

DFSL 
o    o 


o 


z*\ 


nDFSL 
1    o 


DFS  =  HILOC  -  3 
o   o 


ffs   (when  in  procedure  A) 


AUX 


'2 


~""1 


1 

FSL, 


DFSLn 
o    1 


5  locations 

AXC 

c,k 

60.0 

AXC 

1DFS1,  h 

AXC 

HILOC -3,k 

AXC 

DFSn,U 
0   1 

TRA 

t2+i 

AXT 

,2 

AXT 

**   1 

>  J- 

FFS, 
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9.8.3. 

)ARDEC 

9.5.3. 

)ARDEI 
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Array  names  - 

address  of  first 

location  of  the 

information  vector 
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9-17.3. 

ap 

9.17.4. 

A  15 

9.17.6. 

AC 

accumulator 

AC, 

logical  accumulator 

ADM 

9.17.1. 

ADMI 

9.17.1. 

admissible 

9.16.2. 

variable 

almost  feasible 

9.16.3. 

AUX 

9.2. 

AUXILIARY 

9.2. 

B,B1 

boolean  expression 

P 

9.8.1. 

block  number 

9.4.3. 

code  procedure 
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CONSTLOC 

9.16.6. 
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APPENDICES 


Appendix  A:   Bibiliography  on  ALGOL-60 

1.  "Introduction  to  ALGOL,"  Baumann,  Samelson,  Bauer  and 
Feliciano,  Oak  Ridge  National  Laboratories. 

This  is  the  revised  and  extended  version  of  the  ALGOL  Manual  of 
the  ALCOR  group,  translated  from  the  original  German  at  Oak  Ridge  National 
Laboratories.   It  is  a  tutorial  paper  of  some  100  typewritten  pages  and 
is  by  far  the  best  presently  available,  in  the  writer's  opinion,  for  indi- 
vidual study  by  persons  not  previously  familiar  with  ALGOL  or  any  other 
similar  automatic  programming  language.   It  is  well -written,  and  on  an 
elementary  level . 

2.  "Structure  and  Use  of  ALGOL-60,"  H.  Bottenbruch,  Journal 
of  the  Association  for  Computing  Machinery  9   (April  1962),  l6l-221. 

This  is  a  well -written  tutorial  paper  by  a  staff  member  of 
Oak  Ridge  National  Laboratories.   It  is  somewhat  more  advanced  in 
presentation  than  [_1J  ,  and  for  this  reason  is  not  recommended  for  persons 
who  have  no  previous  knowledge  of  programming.   However,  it  is  highly  recom- 
mended for  programmers  desiring  a  complete  exposition  of  the  subject  of 
the  structure  and  use  of  the  ALGOL  language.   This  publication  is  available 
from  the  Digital  Computer  Laboratory  as  a  reprint  to  qualified  users. 

3.  "An  Introduction  to  ALGOL-60]"  H.  R.  Schwarz,  Communications 
of  the  Association  for  Computing  Machinery  5  (February  1962),  82-95- 

The  object  of  this  paper  is  to  explain  the  ALGOL  Report  with 
descriptions  of  the  syntactic  structures  and  examples.   It  is  not  intended 
to  be  a  complete  introduction  to  programming  via  ALGOL,  and  is  not,  therefore, 
recommended  as  a  first  paper  on  the  subject.   It  should  prove  valuable, 
particularly  in  understanding  the  ALGOL  Report,  to  those  who  have  already 
read  (V) ,  [2],    [6] ,  or  \_f\.      This  paper  is  available  (September,  1963)  as 
a  reprint  from  the  ACM. 

h.      "Introduction  to  ALGOL  and  its  Application,"  H.  Rutishauser, 
File  No.  U52,  DCL,  University  of  Illinois,  May  k,    1962. 
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This  is  a  paper  describing  the  structure  of  the  ALGOL  language 
and  is  exceptionally  rich  in  non-trivial  expository  examples.   In  view  of 
the  ready  availability  of  [lj  and  [gj ,  this  paper  can  only  he  recommended 
as  supplementary  reading  material.   Limited  copies  are  available  at  the 
DCL  to  qualified  users . 

5.  "An  Introduction  to  ALGOL -60/"  M.  Woodger,  Computer  Journal 
3  (i960),  67-75- 

This  paper  is  an  effort  to  make  understandable  the  ALGOL  Report 
and  as  such,  it  succeeds.   It  can  be  recommended  only  as  supplementary 
reading  material. 

6.  "A  Primer  of  ALGOL-60  Programming,'"  E.  W.  Dijkstra, 
Academic  Press,  1962. 

This  is  a  text  explaining  the  structure  and  use  of  ALGOL  and 
includes  the  version  of  the  ALGOL  Report  published  in  May  i960  in 
Communications  of  ACM.   It  is  rather  expensive  ($6.00). 

7.  "A  Guide  to  ALGOL  Programming;"  by  D.  D.  McCracken, 
John  Wiley  and  Sons,  Inc.,  1962. 

This  is  a  text,  including  examples  and  problems  (solutions  for 
which  are  provided),  and  is  one  of  the  best  commercially  available  for  the 
beginning  programmer.   Rather  than  an  exposition  of  ALGOL  in  great  detail, 
this  publication  is  a  text  on  programming  computers  which  uses  ALGOL  as 
the  programming  language . 
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ALGOL 

Symbol 

a|b|. 

•|z 

a|b|. 

.|. 

0|1|2 

...|9 

true 

false 

Appendix  C:  Hardware  Representation  of  ALGOL-60  Elements 

Symbol  Name        Hardware  Representation  Tolerated  Hardware  Representation 


upper  case  alphabet 

lower  case  alphabet 

numerals 

Boolean  true 

Boolean  false 

plus  sign 

minus  sign 

multiplication  sign 

division  sign 

integer  division  sign 

exponentiation 

less  than 

less   than  or  equal   to 

eaual   to 


A|B|C|...|Z 
0|l|2|...|9 

'TRUE' 

1  FALSE ' 


/ 

II 

' P0WER ' 

'LESS' 

'N0T  GREATER' 

1  EQUAL ' 


>. 

greater  than  or  equal 

to  'IJ0T  LESS' 

> 

greater  than 

'GREATER' 

t 

not  equal  to 

'N0T  EQUAL' 

= 

logical  equivalent 

'EQUIV 

r> 

logical  implies 

' IMPL ' 

V 

logical  or 

'0R' 

A 

logical  and 

'AND' 

— 1 

logical  negation 

'N?fT' 

go  to 

1  ■/  T0' 

if 

'IF' 

then 

'THEM' 

else 

'ELSE' 

for 

'F0R' 

do 

c  omnia 

decimal  point 

•DOC 

10 

bas»  1 
colon 
semi -colon 

'  (apoB' r 

:  = 

a86U'.nn*-ri',  sign 

.- 

#or  b 

blank  3pace 

step 

until 

' 

while 

'WH1  ' 

connnenl 

( 
) 

h-l'i  | 

pare!  beds 

'COMMENT' 

( 

) 

c 

bracket 

(/ 

] 

right  brae 

/) 

( 

Left  string  q. 

'(' 

> 

.  ht  string  qu 

•)' 

begin 

'BUI  IN' 

•■ri'l 

■,  1  ' 

"Wl 

•/WN' 

boolean 

'  SAM' 

Integer 

•INTEGER' 

r'-ul 

'REAL' 

array 

'ARRAY' 

switch 

trcH1 

procedure 

'PH/ei; 

'LS' 

'LQ' 

•EQ' 

'GQ' 

•OR' 

'NQ' 

•EQV 

'IMP' 


1 
'LABEL' 

'VAI.UE' 
'     DB' 

'mis' 

See  Section  2.   for  discussion  of  hardware  representation  and  tolerated  hardware   represent! 
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Appendix  D. 

Examples 


There  follow  several  examples  of  ALGOL  procedures  and  complete 
ALGOL  programs.   Their  purpose  in  appearing  here  is  to  illustrate  the 
transliteration  from  publication  ALGOL  to  hardware  ALGOL. 
Example  1.   Example  from  Section  ^.k.2,   ALGOL  Report. 
procedure  Spur  (a)  Order:   (n)  Result:  (s); 
value  n ;  array  a f    integer  n ;  real  s ; 
begin  integer  k; 
s:=  0; 

for  k  :  =  1  step  1  until  n  do 
s  :=  s  +  a  \k,    k] 
end 

'PR0CEDURE'  SPUR  (A)  0RDER..(n)  RESULT. . (S ). , 

'VALUE'  N.,  'ARRAY'  A.,  'INTEGER'  N.;  'REAL'  S., 
'BEGIN'  'INTEGER'  K., 
S.=  0., 

'F0R'  K  .=  1  'STEP'  1  "UNTIL'  N  'D0' 
S.=  S  +  A  (/K,  K/) 
'END' 
'FINIS' 
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Example  2.   Example  from  Section  5  A.  2,  ALGOL  Report. 
procedure  Transpose  (a)  Order:  (n) ;    value  nj 
array  a;  integer  n; i 

"begin  real  w;  integer  i,  kj? 

for  i : =  1  step  1  until  n  do 

for  k:=  1  +  i  step  1  until  n  do 
begin  w :  =  a  \\,    k] ; 

a  |"i,  k]  :=  a  ]k,  jQ ; 
a  [k,  i~[  :=  w 
end 
end  Transpose 

'PROCEDURE'  TRANSP0SE  (A)  0RDER  ..  (N).,  'VALUE'  N., 
'ARRAY'  A.,  'INTEGER'  N., 

<BEGIN'  'REAL'  W.,  'INTEGER'  I,  K., 

'F0R'  I.=  1  'STEP'  1  'UNTIL'  N  'D0' 

'FOR'  K.=  1  +  I  'STEP'  1  'UNTIL'  N  'D0' 
•BEGIN'  Wj  =  A  (/  I,  K/)., 

A  (/I,  K/).  =  A(/K,  I/)., 
A  {/K,    I/).  =  W 
:  ■.'..:  ?    'END'1 
•  :   **,.:  "  'END'  TRANSPOSE 
'FINIS' 
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Example  3-   Example  1,   ALGOL  Report. 

procedure  euler  (fct,  sum,  eps,  tim);  value  eps,  tim; 
integer  tim;  real  procedure  fct;  real  sum,  eps; 
comment  euler  computes  the  sum  of  fct  (i)  for 
i  from  zero  up  to  infinity  "by  means  of  a 
suitably  refined  euler  transformation! 
begin  integer  1,    k,  n,  t;  real  array  m    [0:  153  > 
real  mn,  mp,    ds;  i:=  n:=  t:=  0; 
m  IE  °  II  :=  fct  (°)*  sum;=  m  [o]  /2; 
next  term:  i;=  i  +  1;  mn:=  fct  (i); 
for  k:=  0  step  1  until  n  do 

begin  mp:=  (mn  +  m  £kj  )/2;  m  [k]  :=  mn; 

mn:=  mp 
end  means; 
if  (abs  (mn)  <  abs  (m  [n]  )  )  /\  (n  <  15)  then 
begin  ds  :  =  mn/2  ;  n :  =  n  +  1 ; 

m  QiJ  :=  mn 
end  accept  else 

ds:=  mn; 
sum:=  sum  +  ds; 
if  abs  (ds)  <eps  then  t:=  t  +  1  else  t:=  0; 
if  t  <  tim  then  go  to  next  term 
end  euler 
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Example  3- >    continued. 

'PROCEDURE*  EULER  (FCT,  SUM,  EPS,  TIM).,  'VALUE'  EPS,  TIM., 
'INTEGER'  TIM.,  'REAL'  'PROCEDURE'  FCT. ,  'REAL'  SUM,  EPS., 
'COMMENT*  EULER  COMPUTES  THE  SUM  0F  FCT  (i)  F0R 
I  FROM  ZER0  UP  T0  INFINITY  BY  MEANS  0F  A 
SUITABLY  REFINED  EULER  TRANSFORMATION., 

'BEGIN'  'INTEGER'  I,  K,  N,  T. ,  'REAL'  'ARRAY'  M  (/O. .15/)., 
'REAL'  MN,  MP,  DS,,  I.=N.=T.=0.; 
M  (/0/).=  FCT  (O).,  SUM.=  M  (/O/)  /2., 
NEXT  TERM.,  I.=I  +  1.,  MN.=  FCT  (i)., 

!F0R'  K.=  0  'STEP'  1  'UNTIL'  N  'D0' 

'BEGIN'  MP.=  (MN  +  M  (/K/))/2.,  M(/K/).=MN. , 

MN.=  MP 
'END'  MEANSo, 
'IF'  (ABS  (MN)  'LS'  ABS  (M  (/N/)  ))  'AND'  (N  'LS'  15 )  'THEN' 
'BEGIN'  DS.=  MN/2.,  N.=  N  +  1. , 

M  (/N/)o=MN 
'END'  ACCEPT  'ELSE' 

DS.=  MN., 
SUM.=  SUM  +  DS., 
'IF'  ABS  (DS)  'LS'  EPS  'THEN'  T  .=  T  +  1  'ELSE'  T  .=  0. , 
'IF'  T  'LS'  TIM  'THEN'  'GO  TO'  NEXT  TERM 
'END'  EULER 
'FINIS' 
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Example  k. 

begin  comment  complex  division  using  algorithm  ll6, 
Communications  of  ACM,  Aug.  1962; 

real  r,    p,  q,  s}    t,    u;  integer  n; 

procedure  complexdiv  (a,  \>,    c,    d)  results:  (e,  f); 

value  a.,   b ,    c,    d;  real  a,  b,    c,    d; 

comment  complexdiv  yields  the  complex  quotient  of 

a  +  ib  divided  by  c  +  id; 

begin  real  r ,    den; 

if  abs  (c)  ;>.  abs  (d)  then 
begin  r:=  d/c; 

den  :=  c  +  r  y  d  ; 
e  :=(a+bVr)/  den; 
f  :=  (b  -  a  )(  r)  /  den 
end 

else 
begin  r  :=  c/d; 

den  :=  d  +  r  )(  cj 
e  :=(a^r  +  b)/  den; 
f  :=  (b  ^  r  -  b)  /den 
end 
end  complexdiv; 

read  (r;  p,  q,  s);  complexdiv  (r,  p,  q,  s,  t,  u);  print  (r,  p,  q,  s 
t,  u) 
end 


Date :  6/l/6k 

Section:  A-D 

Page:  5  of  6 

Change :  1 


Example  h. ,    continued. 

$  ALG0L 
$  G0 

'BEGIN'  'C0MMENT'  COMPLEX  DIVISI0N  USING  ALGORITHM  ll6, 
COMMUNICATIONS  0F  ACM,  AUG*  I962., 

'REAL'  R,  P,  Q,  S,  Tj  U.,  'INTEGER'  N., 
'FR0CEDURE'  C0MPLEXDIV  (A,  B,  C,  D)  RESULTS,.  (E,  F)., 
'VALUE1  A,  B,  C,  Do,  'REAL'  A,  B,  C,  D., 
'COMMENT'  C0MPLEXDIV  YIELDS  THE  COMPLEX  QUOTIENT  0F 
A  +  IB  DIVIDED  BY  C  +  ID., 
'BEGIN'  'REAL'  R,  DENc , 

'IF1  ABS  (C)  'N0T  LESS'  ABS  (D)  'THEN' 
'BEGIN'  R.=  D/C, 

DEN  .=  C  +  R  *  D-, 
E  .=  (A  +  B  *  R)  /  DEN., 
F   .=  (B  -  A  *  R)  /  DEN 
'END' 


'ELSE' 


'BEGIN'  R  .=  C/D., 

DEN  .=  D  +  R  *  C, 

E  .=  (A  *  R  +  B)  /  DEN., 

P  .=  (B  *  R  -  B)  /  DEN 

'END' 

'END'  COMPLEX  DIVo , 

READ  (R,  P,  Q,  S)«, 

COMPLEX  DIV  (R,  P,  Q,  S,  T,  U)., 

PRINT  (R,  P,  Q,  S,  T,  U) 
1  END ' 
'FINIS' 
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